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Introduction 


Ce livre est destiné à l'utilisateur qui possède son ATARI depuis un ou deux 
mois, est rodé au BASIC ATARI, mais veut en savoir plus sur sa machine. 


Maîtriser l'ordinateur ATARI est aussi simple que maîtriser les trois puces 
construites sur demande à l'intérieur de l'ordinateur. Ces puces sont 
nommées ANTIC, POKEY et GTIA. Toutes sont à peu près aussi grosses 
que le microprocesseur 6502, donnant trois fois plus de puissance 
d'analyse que le 6502 seul. Ces circuits laissent au 6502 la charge de 
toute la programmation, les graphiques relevant de ANTIC et GTIA. La 
puce nommée POKEY prend en charge les entrées/sorties, y compris la 
production de son 


Je pense que la combinaison de ces quatre puces fait de l'ATARI l'un des 
meilleurs ordinateurs sur le marché à l'heure actuelle. Mon jugement est 
basé sur la haute-résolution graphique, les graphiques de missiles, les 
quatres voies sonores disponibles à travers le haut-parleur du téléviseur, 
les modes graphiques mélangés et la disponibilité de trois modes 
graphiques GTIA: modes 9, 10 et 11 qui offrent 16 couleurs sur l'écran 
haute-résolution. 


Si tout vous semble encore sombre et confus, ne vous inquiétez pas, tout 
va devenir clair comme de l'eau de roche quand vous aurez fini ce livre. 


Je vais décrire en détail comment utiliser les graphiques comprenant les 
modes GTIA, tous les systèmes d'entrées/sorties caractères, comment 
concevoir vos propres modes graphiques, comment lire les touches jaunes 
de la console, lire les manettes de jeu, comment utiliser pleinement les 
commandes sonores. A la fin de ce livre se trouvent quelques programmes 
de jeu et des détails sur leur fonctionnement. 


2 
Les instructions graphiques 


Ce chapitre couvre les ordres BASIC utilisant les graphiques haute- 
résolution. Voici une liste des commandes associées aux graphiques. 


Abréviation de 
la commande 


Description sommaire sur la fonction 
de la commande 


GRAPHICS sélectionne le mode graphique courant. 

SETCOLOR redéfinit les couleurs à partir des valeurs par 
défaut. 

COLOR fixe la couleur pour PLOT ou DRAWTO. 

PLOT allume un point simple. 

DRAWTO trace une ligne de la dernière position PLOT 
créée au point spécifié. 

POSITION place le curseur graphique (invisible) au point 
spécifié. 

LOCATE retourne la couleur d'un point précis. 


X10 utilisé en graphique pour colorier une forme. 


Une description plus détaillée suit: 


GRAPHICS 


Cette commande permet de sélectionner l'un des différents modes 
graphiques. Ajouter 16 au nombre donne un écran plein, ajouter 32 
protège contre un effacement éventuel de l'écran quand une commande 
GRAPHICS est exécutée. Avec les modes 9, 19 et 11, l'écran est automati- 
quement effacé quand un texte est imprimé (y compris les messages), 
même quand l'ordinateur tente d'écrire READY. Ceci peut être évité en 
plaçant la commande POKE 703,4 après l’ordre GRAPHICS. Cela empé- 
chera l'affichage d'un texte. Par contre, si une erreur survient dans le 
programme, vous ne saurez pas de laquelle il s'agit, à moins d'utiliser cette 
commande conjointement à un programme de traitement (" Trapement) 
d'erreur, décrit dans le chapitre n° 5. Ce programme, au lieu d'afficher par 
exemple ERROR 6 AT LINE 89 produira un message : OUT OF DATA AT 
LINE 89. Il replace également en mode graphique @ (mode texte ordinaire), 
qui efface l'écran et replace toutes les couleurs à leurs valeurs par défaut. 


SETCOLOR 


Cette commande permet de redéfinir l'une quelconque des couleurs, à 
partir de leurs valeurs par défaut. La commande SETCOLOR s'utilise 
comme suit: 


SETCOLOR Registre couleur, n° de la couleur, luminosité, 


où la luminosité est un nombre compris entre @ et 14, avec @ pour une 
couleur très sombre et 14 pour une grande brillance, une couleur de 6 ou 8 
est un bon compromis et s'accorde bien avec la plupart des fonds. 


N° de la Teinte N° de la Teïnte 
couleur couleur 


Gris/Noir Bleu foncé 
Orange clair Bleu clair 
Orange Turquoise 
Rouge Bleu/Vert 
Rose Vert 
Pourpre (violet) Jaune 
Bleu/pourpre Orange/Vert 
Bleu Orange clair 
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On peut aussi opérer directement sur la mémoire par un’ POKE age” de la 
valeur. Par exemple: 


SETCOLOR 2, 3, 4 est équivalent à: 
POKE 719, 3 » 16 + 4 ou bien, d'une manière générale: 
POKE registre couleur, n° de la couleur x 16 + luminosité. 


“Quels sont les registres couleur?" me direz-vous. Une liste suit ci- 
dessous : 


Valeur 
SETCOLOR 


Registre 
couleur 


N° couleur 


COLOR 


Cette commande permet de choisir la couleur qui sera utilisée lors du 
prochain tracé par DRAWTO ou PLOT. Au départ, l'utilisation de COLOR 
est un peu déroutante car elle n'utilise pas les mêmes valeurs que SETCO- 


LOR. On obtiendra éventuellement les résultats attendus par 
expérimentation. 


PLOT 


Cette fonction produit l'allumage d'un pixel au point spécifié. Exemple: 
PLOT 29,15 allume un pixel au point 29,15 soit 29 en abscisse et 15 en 
ordonnée. La couleur d'allumage est la dernière à avoir été spécifiée. 


Généralement, cette commande est utilisée conjointement à DRAWTO. 


DRAWTO 


Produit une ligne depuis le dernier ” PLOTé”’ jusqu'aux coordonnées spéci- 
fiées, dans la dernière couleur utilisée. Un petit programme de démonstra- 
tion avec GRAPHICS, COLOR, PLOT, SETCOLOR et DRAW est listé ci- 


dessous : 


19 REF #* DEMONSTRATION PROGRAM #*% 


26 REM *Y* SHOHIHNG BASICS OF K# 
39 REM *#* GRAPHICS.. FX 
44 DEG 


38 GRAPHILS +15 

GG SETCOLOR G,RNDK GG 3#15+1,5 

F9 SETCOLOR 1,RNEK 9 #%15+1,3 

84 SETCOLOR Z,RNDC@)#15+1,8 

98 _ COLOR EHT RND< 8 K3 +1: 5 IZE=< RMDK 8 215 
194 DXx=< RD 4 34129 +28 

114 DOv=<RNDE G k4@ 426 

129 FÜR R=ÿ TD 3593 STEP 39 

136 X=CSINCRIXSIZE à 

149 ‘7={COS<R IKSIZE à 

156 PLOT D%, 0: DRANTO Dx+x 074% 
159 NEXT R 

176 GOTO 4 


Commentaires : 


Ligne 40 
Lignes 60-80 


Ligne 90 

Lignes 100-110 
Ligne 120 
Lignes 130-140 
Ligne 1 50 


Ligne 100 
Ligne 170 


POSITION 


: place le calculateur en mode  DEGRES”". 
: place les registres couleurs @ à 2 à des couleurs aléa- 


toires avec une luminosité de 8. 


: choisit la couleur de tracé parmi les trois tirées préala- 


blement. 


: choisit où positionner l'étoile (coordonnées X,Y). 

: ouvre une boucle FOR … NEXT pour tracer l'étoile. 

: calcul des coordonnées du point courant à afficher. 

: place un point au centre de l'étoile et le retire au point 


choisi plus haut. 


: ferme la boucle FOR … NEXT. 
: fait du programme avec une boucle sans fin pour 


tracer d'autres étoiles. 


Cette commande place le curseur graphique (invisible) au point spécifié. 
Cette commande est utilisée en modes textes. Le programme suivant 
montre l'utilité de cette fonction: 


14 REM ## POSITION DEMONSTRATION ## 
24 GRAFHICS & 

38 PÜKE 732,1 

44 X=INTÉRNDS 6 2# 34 à 

58 ‘7=INTÉ RNDX G 3423 à 

64 POSITION #,% 


Fg PRINT 
Sa GOTÜ 46 


"ATARI"; 


Une erreur surviendra si vous essayez de vous positionner hors des coor- 
données du mode graphique courant. Cette commande est plus utile dans 
les modes 1 et 2 où un grand texte peut être imprimé. 


LOCATE 


C'est un autre ordre usuel qui permet de donner la couleur d'un point 


allumé. La syntaxe est la suivante: LOCATE X,Y,D. 


Où: X est l'abscisse, 
Y est l'ordonnée, 
D la variable où sera rangée la valeur. 


On obtient pour D: 
9 si l’on est en couleur de fond, 
1 si l'on est en couleur 1 


2 si l’on est en couleur 2 
etc... 


X10: (Remplissage spécial) 


Cette commande peut-être utilisée pour remplire des formes d'une certaine 
couleur. C'est très pratique bien qu'un peu délicat à utiliser au départ. Un 
programme qui dessine des carrés de différentes tailles et couleurs est 
donné ci-dessous. Une explication de son fonctionnement suit: 


T1 
ul 
La 


14 SEM SSID GERCHSTRATIUONH — SGUBRES 

24 GRAPHICS 7416 

35 LET COLOUR=INTE RAD 9 E3 +1 

46 COLOR COLOUR 

54 SIZE=INTE RNDC GK 18 +5 

ER X=c RNDC GE 136 +15 

Fa Ya FRHDC 4 2E5E6 +15 

S4 PLOT X+SIZE,Y 

39 CRANTO X+SIZE ,'7-S12ZE 

184 DRANTO %,7-S1ZE 

114 POSITION &,7 

124 POFE 765, COLOUR 

139 XIO 1i3,#6,9,0,"5:" 

144 GOTCO 26 
Ligne 20 : place l'ordinateur dans le mode graphique requis. 
Ligne 30 : tire une couleur au hasard. 
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Ligne 40 : place la couleur de tracé à la valeur tirée avant. 


Ligne 50 : choisir une taille aléatoire. 

Lignes 60-70 : choisit des coordonnées aléatoires. 

Ligne 80 : allume le point en bas à droite du carré. 

Ligne 90 : relie au coin droit en haut. 

Ligne 100 : relie au coin supérieur gauche. 

Ligne 110 : se place au coin inférieur gauche. 

Ligne 120 : place à l'adresse 765 la couleur à utiliser pour le remplis- 
sage. 

Ligne 130 : commande X1Q provoquant le remplissage. 

Ligne 140 : on recommence avec Un nouveau Carré. 


Modes graphiques GTIA 


Tous les ATARI sont équipés en Angleterre avec les modes graphiques 
GTIA et avec un minimum de 16 K de mémoire. Je me rappelle qu'en 
Amérique, la taille minimale de mémoire est de 8 K et que les modes GTIA 
ne sont disponibles qu'avec l'extension CTIA. 


Les modes graphiques GTIA requièrent tous 8 K de mémoire, plus encore 
que les graphiques mode 8. Cependant leurs capacités graphiques sont 
énormes. Ils peuvent fournir jusqu'à 16 couleurs sur l'écran! Tous les 
modes ont une résolution de 29 x 192. 


Mode graphique n° 9 


Ce mode graphique donne 16 couleurs : toutes de la même teinte, mais à 
16 luminosités. La couleur de fond détermine la teinte de fond et les 
couleurs de luminosité variable. Un code couleur de Q à 95 peut être utilisé, 
où ® est le fond et 15 est presque blanc. Un excellent programme de 
démonstration des possibilités du mode 9 suit. Si vous ne l'avez déjà vu, 
entrez-le, et tapez RUN. Regardez alors l'écran. 


REM #* GTIA MODE NIHNE DEMD. #à# 
GRHPHICS 9 

SETCOLOR +6,45 £=IG: DES °x=15 
£=£-1: COLOR Zi I=i 

à FÜR P=6 TO 366 STEP 26 

G IF I THEN PLOT SINCP kx+4@, COSCP 1546+ 

ÉQA P 

à DRAHTD SIN P 3kx +48, CO0S<P 348496 

ga HNEXT F 

39 x=x-i 

168 IF x<ÿ THEN 125 

116 GOT 46 

i26 GOTO 124 


en Æe 0 Date 
vén t 


EE 


Mode graphique n° 10 


Je crois personnellement qu'il s'agit du meilleur mode graphique offert par 
GTIA. Il offre 9 couleurs vraiment différentes, une de fond et 8 de tracé. 


Initialiser les registres couleurs” est aisé : POKEZz juste les registres avec 
le n° de couleur multiplié par 16 plus la luminosité voulue. En 764, POKEz 
la couleur de fond et en 745-712 les couleurs 1 à 8. Un programme 
nommé ‘Joueur de tennis” dessine un joueur de tennis en graphique 
mode 1. Si vous pouvez être secondé pour entrer tous en DATA, il vous 
étonnera, vous et vos amis. 


1 RE *# à tennis player — Paul Burm # 
26 GRAPHICS 1@:PÜKE 7@4,12#164+2:TRAF 126 
35 POKE r45,89:POKE 766,13#16+12:POKE 797 
s13#1G+S:POKE FW6:14816+E 

4 POKE r99,14%15+6 

of POKE 71H45: POKE 711,:2#16+4 

65 x=ÿ 

ra READ À,B-C 

86 COLOR B:PLOT %:6:*=x+0: DRANTO %,6:x=Xx 


38 PLOT &,5+15%=x+f4: DRANTO X,6+1 
1@@ IF C=i THEN *=6: 6=G+£ 
114 GOTD Fÿ 
124 GOTO i2& 
138 DATA 33:0o@er sols 
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144 DATA 37 26005 1@ris1 

156 DATA 36,0,9,12,1%1 

166 DATA 35,6e@sidriri 

176 DATA 34,9,9,15%1%1 

186 DATA 34,663 91 s2@sis4r@s5 srl 

196 DATA 34,6,0 99213029 s%s0s6sls1 

za DATA CUP APP PAPE PE PC PR TRES! 

219 DATA 34,9:0s1r120 10» 02335s@soisisi 
226 DATA 35s0e@eGrdrGsolsle@olodte@rls ss Or 
Lrlrdrlrdsdrlirlri 

238 DATA 36,002 s1r0e2 24025 lr0sS3s5%4s5 0» 
le Sslsis desire Goloisi 


249 DATA 360 odr2 i roro 1 2Ûr3s%s0» 


ss 


259 DATA 36,0 022030 r0s%sr@r3s0si 

260 DATA 36:02 se so6srdo@rSs 0 @ese sl 
270 DATA 37 Door o6 otre res i 
286 DATA 2 s20r@ole3s0olslsr@rlrdo@rl sise 
Lotrr9rgsbrllr2ri 

238 DATA 338»0 209339202924 50r93 590 sri3r251 
306 DATA 3700 1ls25 Ge 02420 ss Gridtre si 
318 DATA 35:00 ot o2 20 26» r3r9s0ri16r2r1 
326 DATA 32,000 9522094545 0rSs5 95 @ritresi 
339 DATA 31,00 102520 rtsts2@r3s9s@ oies 
Grlsds i 

344 DATA 29:50 rdol3s22 ses stores 926 rllr2s 
Borloo ssl aber] 

359 DATA 28,0 0169220 r2s%sr0rlr3sdollr2r 
Corse ssbrdoc sets 

368 DATA 27 0902199220 ole%r0ril2r2s0rdr3s 
Gr Sacs osdsi 

3749 DATA 2rrdodn3locsodo0sSs20rlr3s20r3s%ti 
En re Lib PAP APRES PP PR EAP A PET 
Ha DATA 25,0 893222201235 0 630505122350 
406 OATH 24,0 30233220 st 20 202202059041 
41e DATA PC PC PSP PPT CPS PC PA A A 
rs 90941 


429 DATA 23:00» 9r230r32350r20 250138 
PELLE 1 PHP PRILT À 


7 _ 


tar2oere, 6060606 208165 Dadsi 
444 DATA 220302932220» 3300 r2s3s0r 16258 
a Sa Saolloobris Sorel 


454 DATA 2100929450 922 202330» 350 0» 
dr 35@s1l1s525 46 CAP RPC PE ACTE TS: 


468 DATA 26,00 544012220243 0r 4020» 
EE D EE Re 


dr DATA 183,6,0e6 401290235350 540507 
Don 4 1e Per dorer e papa 1 60e 
438 DATA 17,600» 235930 505301025350» 
PP LPC PR PLIS CPP CPC TC TS! 

438 DATA 15:00 98 24025950 ot 2050235350 
lol o0sS3 32651 soso os 1 

599 DATA 14,509» r2 2933006 2050595350 
1dolodols 3560 165655 1 

915 DATA 12,9,0 954102259505 0053258 
CARPE CPI PET LCR CPC PAT LS 

528 DATA 11:00 999402292056 1059250» 
CPR PS PP PR PET CPS ETAPE TS! 

238 DATA iso 324020 o0 ri rlo0r9 20» 
4,30518,2 0r4s8 6220 ir ls Gr ds Gr 1 
1,1 


5H OATH 19  » CE CE > Dresde doi 20 rot sr» 
SPRL PLIIELEEE 3» BW, À 92 2 4 9 16 9 6 2 EsdtsrËris 


350 DATA Se De NO D 
LA 


= 


ds 


JF OATA rododor srl sl3s2r0r3s3 0 
1122 sr 196 lrs G, EPEMCPESL TS! 

334 DATA Folrborlrcrr3r%r0 PC ET EUR 
*s Gras sb, dr rd si 


5 OATH Brlodosre or s oder lso lors r 
se Duebile i 

_ DATA EPP PEN TUE PE PR ERP PEL TT 
ss 

3 DATA 20 seBrtrdoc rod older lsd rss or 
CPC PE CRETE ss slt sl i 

CE DATA 1; le Bosc rtrdobrlodrtor 2 dodols 
D i 
ATH iodrdeos otre» sde 2 tordre 
À» So0 os 16 sets Or sl ads Got rt sr si 

TA dedtobols Se oc rod rsslsdosst sr 
PC PTS PS EE PC PP LPS CPE PERTE 
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Täÿ DATA 4,920 ÿ 
D nd té 4 

F19 OATA 460 olor oo 1000 or» 20 rl 
PAL PP PURE 


re DATA So o0 2 rt 20 r 20025 t 5250 565 
14, Gr sr rs i 


39 DATA 30 o0ols 209937017025 20935850 
G, CPC PE PP PE PES! 


149 ONTH Srobrlisot 0er st sd r%tr0 7050 
APP PRIS CAR TCTS 


F5 OATA Sonor 2 r0srdoborSst 2632061 
PoPICPTL PLUPART AC AAC PS ERP 

F6 DATA Sododolot rss oo st 20e 22052 
Por PL TL CPC PHP PC PPT ssl sos 

TF8 DATA 35000 et 209 1000» 3r9:0r0 5087 
Dedrbrdrsi 


F5 DATA 13:00 2929 20 2 1 2032020 s4 04591 
794 DATA 26,606 520 sr 2020641 
306 DATA 21,00» 9200 202059 s%+50r%4s951 
814 DATA 22,606 5260r0:@0s0s26s4s6r335 1 
826 DATA 22,00 969020303050 %r0r253)1 
830 DATA 23,@0r9s252026Gs20 203534565201 
5849 DATA 23,60,09°9»920»950 020 »%0s525951 


5e DATE CAC A PERTE PS PEAR PU PTE 717 


… dl 23 0 0odr2rdolo320 rs r%50 7 
374 DATA 2300 r3scs0r2s 320550070458» 
392 ill EL o0r0»3220 0539320 2% 7070 rDr 40 
395 DATA 22,0e0e3220o3r 3 0rdor0 95241 
ga DATA TS A ENT NE DE AN RTE 
918 DATA 21:00 o4r220 229350 9409093541 
924 DATA ZGe0o@rS 22012 So 68450 rGs%r4si 
938 DATA 26,600 r6r2s20olr3s20r3509 09% 


ai “ébl pe ELA PRIT PS RTC PR TI PPS ET 


Fe ue 2170209250 92535 0125050 r3r25 07 


ie 7. 22 20 °Or2s2 50 r2r 330 232070735250» 
ss 


re DUR 225009292560 r1r350 245050 r252 50 
336 DATA 29,6, r2r72s20rlr31l 
996 DATA 26030330 0rE 2351 
1960 DATA 28,00 r2»250r25351 
1016 DATA 27,6s:6s49290s1531 
16029 DATH 27 00 r4s2s0s223391 
1036 DATA 276369925023 31 
1649 DATH 27,00 r9r2220r2»35i 
1856 DATA 27,60:0r6Gr230s1r31 
1869 DATA 27,0,6,6r25i 

1676 DATA 270326943251 


Mode graphique n° 11 


Le mode 11 est similaire au mode 9, à la différence qu'il offre plusieurs 
couleurs à la même luminosité à la place de plusieurs luminosités sur la 
même couleur. Pour indiquer la luminosité, frappez: 


SETCOLOR 4,9, luminosité voulue. 
Un programme de démonstration de mode 11 suit: 


Lg REM # GRAPHICS MODE 11 DEMD. # 

26G GRAPHICS 11: SETCOLOR 4,@,£ 

39 COLOUR=INTÉ RND< 8 315 +1 

4@ COLOR COLOUF 

64 PLOT %,%Y:DRANTO F39-%x, 7: DRANTO 73-x 219 
1-YDORANTO x,191-V2DRANTO x s7 

65 SOUND 9,%21015: SOUND 1,X+1,18215: SOU 
ND Zorvsries6 

FE A=X+4.5:7=v+1 

GG IF x*<4& THEN 34 

34 COLOR & 

: D 50 00: SOUND 1 0 0 70: SOUND 2-8 
PLIS 

188 GÜTD 14 
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Les Entrées/Sorties 
sur l’ATARI 


Ce chapitre traite de la création, la lecture et l'écriture des fichiers. Avant 
d'utiliser des fichiers, ceux-ci doivent avoir été ouvert. Pour cela, il faut 
écrire : 


OPEN n° fichier (1-5), MODE, 8, ‘’référence système” 


————— —— —————— 


Mode Signification Référence système 


1 Entrée 
8 Sortie 
12 Entrée + sortie 
6 Catalogue disquette 
9 Ajout en fin de fichier 


Signification 


Imprimante 
Cassette 
Disquette 
Écran 

RS 232 C 
Éditeur 


Exemples: 


OPEN %#3,6,9," D :#.#°" ouvrira le fichier n° 3 pour lire le catalogue de la 
disquette. 


OPEN #5,4,9,'C:" ouvrira le fichier n°5 pour une entrée de données 
depuis la cassette. 


Les fichiers peuvent être lus ou écrits de différentes façons. On dispose de 
PUT, GET, PRINTZ, INPUTZ et de certains ordres X1Q. 


PUT et GET 


Ces ordres manipulent (placent et prennent) de simples octets. Le format 
est: 


PUT n° de fichier (1-5), variable 


Exemples : 


PUT 2, OCTET DONNEE 
ou GET 3,ZZ 


Un programme de démonstration de PUT et GET est listé ci-dessous: 


14 OPEN #1s4,0,"K3"3POKE 73251 
28 OPEN #2,6,8,"P2 "3: GRAPHICS & 
38 GET #1,BYTTE 

4G PUT #2,EYTE 

38 PUT #6,BYTE 

66 GOTO 34 


Notez qu'en ligne 59, on effectue une écriture dans un fichier numéro 6 qui 
n'a pas été ouvert au préalable. Ceci est possible car le fichier 6 est auto- 
matiquement ouvert lorsqu'un ordre GRAPHICS est rencontré. 


L'avantage de l'utilisation de PUT et GET est que vous pouvez directement 
manipuler des octets. 
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INPUT et PRINT 


Ces ordres sont utilisés pour transférer une chaîne de caractères. Deux 
exemples d'utilisation pourraient être : 


PRINT # 2;'"ATARI"';E$ 
ou INPUT # 1,A$ 


Dans le premier exemple, ‘ ATARI" sera écrit dans le fichier n° 2, suivi du 
contenu de E$. Dans le second exemple, A$ recueillera des caractères 
ATASCII jusqu'à ce que A$ soit complètement rempli ou qu'un caractère 
“EOL” (retour chariot) soit rencontré. 


X10 5 et X109 


Ces commandes sont à peu près les mêmes que INPUT# et PRINT, 
excepté le fait que X1@9 s'arrêtera d'écrire une chaîne si un caractère 
“"EOL‘” (voir plus haut) est rencontré, alors que PRINT écrit une chaîne 
sans regarder le contenu. Un exemple de X19 9 serait: 


X199,#1,8,9,NOM$ 
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Les paramètres d'affichage 


Les paramètres d'affichage sont une suite de nombres placés dans ANTIC, 
indiquant à l'ordinateur dans quel mode graphique il est actuellement. 


En Basic, ces nombres indiquant le mode graphique sont tous identiques. 
Quand vous changez de mode graphique par un ordre GRAPHICS, toute la 
liste change. Le nombre de ces paramètres variera avec les différents 
modes graphiques, mais dans tous les cas, il y a 192 lignes de trame. 


Une ligne de trame est la ligne élémentaire d'un écran de télévision. 
Certains modes graphiques ont des hauteurs différentes des pavés 
graphiques. 


Par exemple: un pavé en mode 7 est beaucoup plus petit qu'en mode 3. 


Pour déterminer la hauteur d'un pavé dans un mode particulier, utiliser 
cette formule : 


192 + nombre de pavés dans tout l'écran — hauteur du pavé (en lignes de 
trame). 
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Exemple: En mode graphique 5 : nombre de pavés en plein écran = 48: 
192 + 48 = 4 
Donc, en mode graphique 5, les pavés ont une hauteur de 4 lignes de haut. 


Si l'on commence à changer les paramètres d'affichage, l'affichage 
changera. 


Dans ce chapitre, nous allons voir comment construire notre propre liste de 
paramètres, faire nos propres modes graphiques. 


En premier lieu, permettez-moi de vous montrer les paramètres du mode 0. 


Toutes les valeurs sont en hexadécimal. 


78 blancs 8 lignes 
78 blancs 8 lignes 
79 blancs 8 lignes 
42 mode graphique # (Antic: mode 2) 


octets faible et fort d'adresse de début d'écran (7C28) 


g2 mode graphique ANTIC n°2 
g2 mode graphique BASIC ÿ 


io l’Branchement”’ au début des paramètres qui débutent en TBEŸ 
7B 


La mémoire écran suit. 


Ainsi que vous pouvez le constater, cela semble assez compliqué. Tout 
s'éclairciera bientôt. En premier, voyons où se trouvent les paramètres. 
C'est très simple, tapez simplement: 


LISTE PARAM = PEEK(569) + 256 x PEEK(561) + 4 


Avant d'aller plus avant, vous devez étudier quel affichage vous voulez. 


Voici un exemple: 


cepuiaus, mass Q 


19 GRHPHICS 6 

29 OL=PEEKS 568 H+256%PEEK£ 561 +4 

36 FOKE DL-i,71:POKE DL+2,6 

4 SETCOLOR 4,954 

99 + “the program that DOES THIS IS 


Lt") $ “LiISTED BELOH. ....... # 
rFà LIST 


Explications : 


Ligne 10: Des trois modes graphiques que nous employons, le mode ® 
utilise le plus de mémoire. Aussi nous devons spécifier le mode graphique. 


Ligne 20 : Recherche le début de la liste des paramètres d'affichage pour le 
mode graphique courant et le place dans la variable DL. 


Ligne 30: Si la première ligne de l'affichage requis n'est pas la même que 
le mode graphique qui utilise le plus de mémoire, vous devez POKEr" la 
valeur correspondant au mode graphique que vous désirez voir opérer en 
première ligne. 
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Les nombres sont listés ci-dessous: 


MODE GRAPHIQUE 
(5) 1 2 3 4 5 6 7 8 


NOMBRE A POKER 
66 70 71 72 73 74 75 77 79 


Le second ordre de la ligne 30 place la seconde ligne d'écran en mode 1. 
Ceci est fait en ajoutant simplement le nombre de lignes d'écran à la 
variable DL et en ‘’POKant” ceci avec les nombres correspondant au mode 
graphique voulu pour cette ligne particulière. 


MODE GRAPHIQUE 
1) 1 2 3 É 5 6 7 8 


NOMBRE A POKER 
2 6 7 8 9 19 11 13 15 


Ligne 40: place en ‘Tableau Noir”. 
Ligne 50: écrit en orange et jaune, en modes graphiques 1 et 2. 
Ligne 60: liste le programme en mode graphique @. 


Ce que vous pouvez faire pour apprendre est une expérience : trouvez où se 
trouve la liste des paramètres, et POKEz autour. 


Vous êtres sûrs de produire quelques effets spéciaux. 
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Le traitement d’erreurs 


Le chapitre suivant est un petit explicatif sur le système de traitement des 
erreurs de votre ordinateur domestique ATARI. 


Quand l'ordinateur ATARI ‘’tombe” sur une erreur, il cesse d'exécuter le 
programme fautif et affiche un message du genre de celui-ci: 


ERROR-6 AT LINE 28 


(erreur 6 en ligne 20). 


A ce moment-là, vous consultez votre manuel et vous apprenez que 
l'erreur 6, à savoir Out of Data” est un nombre insuffisant de données. 


Il ne vous reste plus qu'à donner le meilleur de vous-même pour que le 
programme ‘tourne ”. 


Le Basic ATARI vous fournit un ordre très utile appelé ’TRAP”. Cet ordre 
force l'ordinateur à continuer l'exécution du programme déficient à la ligne 
spécifiée quand une erreur est rencontrée. 
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Un exemple: TRAP 520 forcera l'ordinateur à exécuter un GOTO 529 si 
une erreur se produit. 


Si cela se produit, le numéro de l'erreur pourra être obtenu par PEEK(195). 
Le numéro de la ligne fautive, quant à lui, sera fourni par: 


PEEK(186) + 256 x PEEK(187) 


Un programme qui peut se révéler très utile est mon programme de traite- 
ment d'erreurs que je vous livre ci-après. Entrez-le et sauvez-le sur 
disquette ou cassette. Ensuite, lorsque vous voudrez frapper un 
programme, chargez-le. 


Au début du programme, veillez à ce que figure une instruction TRAP 
32000 et que votre programme n'ait pas de ligne au-delà de 31999 (ou 
alors le programme sera écrasé). 


Lorsque vous aurez fini d'écrire votre programme, sauvez le simplement sur 
la disquette ou la cassette en utilisant soit LIST “C:”,9,31999 pour la 
cassette, soit LIST ‘ D :FILE.EXT ”’,9,31999 si vous avez une disquette. Cela 
évitera de sauver la routine avec. 


Lorsque vous voudrez récupérer votre programme, utilisez ENTER ”C:" ou 
ENTER "D:FILE.EXT" si vous avez une disquette. La routine de traitement 
d'erreurs suit: 


15 REF +£ FIRST LINE MUST BE TRAP +# 
24 REM *+ 2240664 THEN YOUR PROGRAM #+ 


34 REM +* GOES HERE. + 
7482 P=PEERKS 195 3: ERL=PEEKC 186 HESEXPFEER 
Le Sr ] 

32814 TRHP 32096 

32624 IF P=2 THEN * "Out of memory !"; 


32034 IF P=3 THEN Ÿ “Out of range "; 
32644 IF P=4 THEN * "Too many variables 


LS 

32958 IF P=5 THEN Ÿ "String length too 1 
arae !; 

32968 IF F=5 THEN Ÿ “Out of data "; 
S2G7@ IF P=r THEN 7 “Lite number Loc big 


3 3 THEN *Ÿ "INPUT error #,; 

322494 IF F=S THEN % "Arrag-DInM error ">; 
321096 IF P=ig THEN % "Stack overflou "“; 
cy 32114 IF P=ii THEN ? 'Arithmetic over-f10 
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12 IF P=12 THEN ? “Undefined statemen 
2136 IF P=1i3 THEN ? NEXT without FÜR " 


. 


fi 


43 IF P=i4 THEH * "Line too 10ng erro 


à 
154 IF P=iS THEN © "No GOSUB or FÜR "; 
GG IF P=16 THEN 7 "RETURN without GÜ£ 


32178 IF P=17 THEN 7? “Syntax error "; 
32180 IF P=18 THEN 7 “Invalid string Cha 
racter 1; 
32196 IF P=138 THEN 7 “End of file "; 
32191 IF P=141 THEN GRAPHICS @:7 "Graphi 
error "3; 
298 IF P>15 AND P<>136 AND P<>141 THEN 
“INPUT-OUTPÜT_errar LE 
322109 IF ERL(>9 THEN 7 "at Line ";ERL 
32226 1F ERL=@ THEN 7 


Notez que si vous voulez employer TRAP pour envoyer à une ligne inexis- 


tante, une erreur n° 12 se produira. 


En effet, quand une erreur survient, l'ordinateur regarde si une instruction 
TRAP a été placée; le cas échéant, il va à la ligne spécifiée. Si ce  GOTO” 


ne peut s'exécuter, faute de ligne, une erreur 12 survient donc. 
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Graphiques mobiles 
utilisateurs 


Je pense que cette possibilité est la meilleure chose offerte par les ordina- 
teurs ATARI. Cela situe l'ATARI au dessus du reste. Avec un tout petit 
effort, vous aurez des “joueurs” et des “missiles” évoluant avec un 
claquement de doigt. 


Il y a quatre joueurs et quatre missiles, avec chacun un registre propre de 
couleur, de taille et de position horizontale. Vous pouvez avoir des joueurs 
évoluant sous certains champs et au-dessus d'autres. 


Les graphiques des joueurs et missiles résident en RAM et consomment 
donc de la mémoire. 


En ayant une résolution d'une ligne (une ligne de joueurs est égale à une 
ligne de balayage vidéo) on utilise 2 K de mémoire. Une double ligne de 
résolution (chaque ligne de joueurs fait deux lignes de trame) demande 1 K 
de mémoire. 


Un joueur a 8 bits de large soit 128(double résolution) ou 256 (simple 
résolution). 
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Pour créer votre joueur, vous affichez juste les points requis sur une grille 
de huit de large. Ensuite vous placez les nombres 128, 64, 32, 16, 8, 4,2 
et 1 (poids binaires) sur un côté. Ensuite, ajoutez les poids binaires des 
carrés. 


128 64 32 16 8 4 2 1 


74 TIL|II1[]-"% 
BEBE 
[4 | | 1. = 64+32+16-112 
| ZA | = 32+16+8+4-60 
| 222 | = 32+16+8+4=60 
D | |] = 64+32+16-112 
111111 = 128+64-192 
AlTI11111 


= 128 


Un programme qui affichera ce joueur à l'écran et vous permettra de le 
déplacer est listé après. 


Appuyez sur le bouton du paddle pour changer la taille du joueur. 


Frappez-le, voyez comment il travaille et, pourquoi pas, changez-le à votre 
guise. 


Une explication détaillée du fonctionnement suit. Etudiez-la, expérimentez 
et essayez de voir comment il fonctionne. 


lg REM XX PLATER-MISSILE GRAPHICS #% 

2h REM #* EXHIPLE Er FAUL EUNH. £E 

+ GRAPHICS G:SETCOLOR 2,9,8:RANITOP=PEEK 
GE 5 

6 FAM=RANITOPÉ2SE 

59 FOR #=512 TO Ed: POKE Æ+RAPLAINEST % 

cree ne TO EFsREAC &SPOKE SiZ+F+FR AM: 

#3 NES 

ra OATA 128,198,112:64 968112192128 : 

SG POKE 532748,128:POKE 53277 :3:PÜKE 559: 

A6: POKE 54273,RANTTOP 


26 


96 XxXPOS=128: YPOS=6: SIZE=6 

if S=STICKEE à 

114 XPOS=XPOS+É SET 1 Si 1 à 

129 POKE 53243,%P0S:POKE 754 ,x*P0S 

136 IF STRIGCG)=G THEN FOR P=2SS TO &@ ST 
EP -26: SOUND 6,P,12,12:NEXT P:SIZE=SIZE+ 
1: SOUND 6,6, 

148 IF SIZE:3 THEN 51ZE=4 

15@ POKE 53256,S12E 

164 IF S=14 THEN FOR P=6 TO S3:POKE RAHS 
11+YP0S+P , PEEKCRAFHS12+YPOS+P:NEXT Pi VP 
05S=YPIS-1 

Leg IF 5=13 THEN FÜR P=8 TO à STEP -1:PD 
KE _RATH-512+YP0S4P , PEEKC RAPH-S1 1+POS+F 12 N 
EXT Ps: YPOS=YPOS+1 

i8a GOTO 166 


Explications : 


Ligne 30: Efface l'écran, place le fond en noir de façon à éclaircir d'autant 
plus le joueur. L'adresse 196 contient la quantité de pages mémoires que 
vous avez, ceci étant rangé dans la variable RAMTOP. 8 pages sont 
consommées par la zone missile/joueur. 


Ligne 49: RAM recoit l'adresse de la mémoire à laquelle commence la 
zone joueur/missile. 


Ligne 50: Efface les données actuellement détenues dans la zone 
PLAYER @ (joueur ). 


Ligne 60: ‘’POKE‘ le joueur. 
Ligne 709: Données décimales décrivant le joueur. 


Ligne 89: ‘’POKE‘” en 53218 la position horizontale du joueur @, dans le 
cas: 128 pour le milieu d'écran. L'adresse 53277 est  POKée”’ avec un 3. 
Ceci autorise l'utilisation des joueurs et missiles. L'adresse 559 est POKée 
avec 46. Cela spécifie une résolution de deux lignes. L'adresse 54279 est 
POKée avec la variable RAMTOP. Ceci indique à l'ordinateur le début de la 
zone joueur/missile. 


Ligne 90: Place les positions X et Ÿ au centre de l'écran. Place également 
la taille au plus petit. 


Ligne 190: Lit la valeur des Joysticks. 
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Ligne 110: Incrémente ou décrémente la position X en fonction de la façon 
dont le Joystick est poussé vers la droite ou vers la gauche. 


Ligne 120: POKE le registre de position horizontale du joueur @ avec la 
variable X et POKE la couleur du joueur @ avec la variable X également. 


Ligne 130 : Regarde si le bouton rouge est pressé. Si oui, change la taille 
du joueur. 


Ligne 140: Regarde si la variable de taille est supérieure à 3: 


Si taille — @: taille des joueurs NORMAL 
Si taille — 1: taille des joueurs DOUBLE 
Si taille — 2: taille des joueurs NORMAL 
Si taille — 3: taille des joueurs QUADRUPLE. 


Ligne 159: POKE la taille du joueur @ avec la variable de taille. 


Ligne 160: Regarde si le Joystick est appuyé vers le haut, et, le cas 
échéant, déplace le joueur vers le haut. 


Ligne 170: Idem, mais vers le bas. 
Ligne 180: Continue la boucle du programme. 


Voici une liste des adresses qui agissent sur les joueurs et les missiles: 


Adresse Nom Commentaires 
a À — nn 
559 SDMCTL 46 - double et 62 - simple résolution. 
623 GPRIOR Cette adresse fixe les priorités des joueurs/ 
missiles : 


1 : joueurs prioritaires 

4: champs prioritaires 

2 : joueurs 1 et @, joueurs 2 + 3 
8 : champs et 1, champs 2 + 3. 


704 PCOLR® couleur du missile @. 
705 PCOLR1 couleur du missile 1. 
706 PCOLR2 couleur du missile 2. 
707 PCOLR3 couleur du missile 3. 
53277 GRACTL contrôle graphique 1 : un 3 ici autorisera la pré- 
sence de caractères missiles. Un 0 les interdira. 
53278 HITCLR "’POKEz" ici n'importe quelle valeur pour effa- 


cer les registres de détection de collision. 
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Adresse 


53248 
53256 
53249 
53257 
53259 
53258 
53251 
53259 


53252 
53269 
53253 
53261 
53264 
53262 
53255 
53263 
53252 
53253 
53254 
53255 
53248 
53249 
53250 
53251 
54279 
53260 
53256 
53257 
53258 
53259 


Nom 


Commentaires 


MOPF 
MOPL 
M1PF 
MiPL 
M2PF 
M2PL 
M3PF 
M3PL 
POPF 
POPL 
P1PF 
PIPL 
P2PF 
P2PL 
P3PF 
P3PL 
HPYSM9 
HPYSM1 
HPYSM2 
HPOSM3 
HPYSPY 
HPYSP1 
HPGSP2 
HPOSP3 
PMBASE 
SIZEM 
SIZEP® 
SIZEP1 
SIZEP2 
SIZEP3 


collision missile @/champs. 
collision missile @/joueur. 
collision missile 1/champ. 
collision missile 1/joueur. 
collision missile 2/champ. 
collision missile 2/joueur. 
collision missile 3/champ. 
collision missile 3/joueur. 
collision joueur @ champ. 
collision joueur @/joueur. 
collision joueur 1/champ. 
collision joueur 1/joueur. 
collision joueur 2/champ. 
collision joueur 2/joueur. 
collision joueur 3/champ. 
collision joueur 3/joueur. 
position horizontale missile @. 
position horizontale missile 1. 
position horizontale missile 2. 
position horizontale missile 3. 
position horizontale joueur @. 
position horizontale joueur 1. 
position horizontale joueur 2. 
position horizontale joueur 3. 
octet fort de l'adresse de la zone des missiles. 
taille de tous les missiles. 
taille du joueur @. 

taille du joueur 1. 

taille du joueur 2. 

taille du joueur 3. 

POKEz ici un X pour les registres de taille : 
9 - normal 

1 - double 

2 - normal 

4 — quadruple. 
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Mouvement horizontal des joueurs et missiles 


Ce genre de mouvement est le plus simple du monde pour les missiles et 
joueurs. 


Il y a des registres de position horizontale pour les quatre joueurs et 
missiles. Tout ce que vous avez à faire est de ‘’POKEr" le registre voulu 
avec la position horizontale désirée. 


POKEr un petit nombre fera se déplacer le missile vers la gauche à la 
vitesse de la lumière ! POKEr un grand nombre le déplacera vers la droite. 


Les missiles et les joueurs n'apparaîtront sur l'écran que pour des valeurs 
comprises entre 59 et 200, en raison du mode de balayage. 


Ces paramètres sont susceptibles de varier d'un téléviseur à l'autre, aussi, 
testez préalablement les valeurs 59 et 200. 


Déplacements verticaux 


Ce mouvement est un peu plus difficile et aussi un peu plus lent en Basic. 


On considère les joueurs et les missiles comme une “bande” de mémoire 
allant du sommet à la base de l'écran de télévision. 


Cette bande‘ est positionnée sur l'axe des X par la valeur du registre de 
position. 


Elle aura toujours 8 bits de large (excepté les missiles de 2 bits de large). La 
largeur de chacun sera affectée par le registre de taille correspondant. 


""POKEr" quelque part dans cette bande produit l'affichage immédiat de 
l'octet correspondant sous sa représentation binaire. 


Donc, pour déplacer un joueur vers le haut ou le bas, il suffit de la déplacer 
pareillement dans la mémoire. 
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Un cinquième joueur multicolore 


Un joueur multicolore peut être créé en joignant les quatre missiles, qui ont 
chacun leur registre couleur propre. 


Tout ce que vous avez à faire est de construire votre joueur dans la zone 
des 4 missiles, puis de placer la couleur requise pour les 2 bits les plus à 
droite dans le registre couleur @, les deux suivants dans le 1, et ainsi de 
suite. 


Le déplacement vertical est inchangé, mais en ce qui concerne le déplace- 
ment horizontal, les registres de position horizontale doivent être dans M3, 
M2, M1, M9 et manipulés séquentiellement. 


PMBASE + 768 PMBASE 
+ 384 
MISSILES 
+ 512 M3 M2 M1 MO IMISSILES 
JOUEUR 9 
+ 649 + 1024 
JOUEUR 1 nu 
+ 768 JOUEUR 9 
JOUEUR 2 
+ 896 + 1280 
JOUEUR 3 
+ 1024 JOUEUR 1 
DOUBLE LIGNE 
+ 1536 
RESOLUTION 
JOUEUR 2 
+ 1792 
JOUEUR 3 
+ 2048 
SIMPLE LIGNE 
RESOLUTION 


Si, par exemple, en mode résolution double-ligne, l'octet fort de PMBASE 
est 54, alors en résolution simple ligne, la zone des missiles débutera à 
14208 en RAM (256 multiplié par 54) + 384. 


31 


Détection de collision 


Avant de détecter une collision, commencez par ‘POKEr" HTCLR avec 
n'importe quel nombre: ceci effacera les registres de collision. 


Ensuite, ‘"POKEz" le registre de détection de collision voulu. Tout autre 
résultat que @ indiquera qu'une collision vient d'avoir lieu. 
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Redéfinition du jeu 
de caractères 


Voici une autre possibilité très intéressante offerte par l'ATARI. 


Les données caractérisant le jeu de caractères sont stockées en ROM sous 
forme binaire. La table démarre en 57343 et à une longueur de 1 924 oc- 
tets. Vous pouvez uniquement PEEKer” dans la table et, en aucun cas, 
"POKEr”. 


Partant de là, comment modifier les données ? En RAM, il y a une adresse 
nommée CHBAS qui contient l'adresse de début de table. Vous pouvez 
changer CHBAS à votre guise. 


CHBAS est l'octet fort ou MSB (octet le plus significatif) du pointeur vers la 
table des caractères. Quand il a une valeur de 224 (valeur par défaut), il 
“adresse” la valeur 57344, première adresse de la table en ROM. 


Ce que vous aurez de mieux à faire est de copier la table en RAM et de 
modifier en mémoire vive les données, ainsi que bon vous semblera. 
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Un programme réalisant cela et redéfinissant le point d'exclamation est 
listé ci-dessous. Une explication détaillée est également donnée, vous 
permettant de voir comment il fonctionne. 


16 REM ## THIS PROGRAM REDEFINS THE #*# 
ZA REM ## EXCLAMATION MARK CHARACTERKE 
34 RAMITOP=PEEKS 1963-35: POKE 756 RAFTTOP 
4G FOR X=6 TO 1823:POKE RAMTOP#256+%,PEE 
EC Sr 34d+x Si NEXT % 

24 LOC=RAMTOF#ÉZSE+E 

64 FÜR *#=6 TD 7 

READ EYTE 

POKE LÜC+X,BYTESNEXT %x 

DATA Zbié , 264 251 251 2 204 2 26 5 51 25 


«D co 4 
A Ë Da Ë 


Ligne 30: Cherche le haut de mémoire, redescend de 8 pages, puis place la 
valeur en 756. 


Ligne 40 : Recopie la table en ROM dans la RAM. Vous le verrez travailler 
quans vous ferez RUN. 


Ligne 59: Cherche le début des Boctets caractérisant le point 
d'exclamation. 


Lignes 60-99" POKE'"” en mémoire le nouveau caractère. 


Quand READY" apparaît, pressez  SHIFT" et 1" ensemble et regardez 
le nouveau caractère. 


Pour redéfinir le caractère de votre choix, vous devez vous placer sur celui- 
ci dans votre table interne grâce à son code: repérez-le dans le manuel, 
multipliez-le par 8, puis ajoutez à l'adresse de début de table. 


Par exemple, dans le programme: 
LOC = RAMTOP x 256 + 8 


RAMTOP * 256 donne le début de la table et le 8 donne le ” !"’ car c'est le 
caractère de code 1. 


Notez que le nombre @ est l'espace. 
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ô 


Les touches jaunes 
de la console ATARI 


Voici un chapitre extrêmement court sur la façon de lire les touches jaunes 
de la console. 


Toute combinaison de START, OPTION et SELECT peut être trouvée grâce 
à un simple PEEK. L'adresse à ‘’PEEKer”’ est 53279. 


La table ci-dessous montre quelles touches sont enfoncées en fonction du 
contenu (de 1 à 7). 


PEEK VALUE 
KEYS PRESSED 


SELECT 
OPTION 
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Un point @ signifie que la touche correspondante est enfoncée. Un 


exemple : quand PEEK(53279) vaut 2, les touches START et OPTION sont 
pressées simultanément. 


Un programme qui retourne ces information est donné après. 
POKE 53729,0 fait ‘cliquer’ l'ordinateur. 


24 SRAPHICS BG: DIM CONSOLHC ZM POKE FS2, 1 
ci POKRE © 53 Or Fra, 

9 KETr= er 

46 ON KEY GOTO 68,5 FE SE 8 36 

4 IF KET=4 THEH Fr 

CONSO = “GG " : GOT O 158 

FE COHSOL#="111":60T0 148 

86 CONSOL+="114":G0OT0 i4f 

95 COHSOL#S="141":GO0TO 144 

184 CONSOLS="164":GOTC 144 

119 CONSOLH="YG11": GOT ii 

126 CONSOL+="GiR"sGOTG if 

139 CONSOLF= "441": 50TO 1449 

id@ POSITION G,Bs7 * À 


154 POSITION 2,921F CONSOLS# 1,12="1" THE 
H ere ir 

ir POSITION £sig ONSOL#<2,23="1" TH 
EH * "SELECT": GOT 
É] F L 


IF ! 
i 
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res 


S:IF CONSOL#(3,32="1" TH 
ÙÜ € 


= 


EN 7 “TARTEE Gü 
218 GOTD ZE 


36 


9 
Joysticks et Paddles 


Sur l'ordinateur ATARI, utiliser les Joysticks et les Paddles est aussi 
complexe que compter sur ses doigts. 


Il y a deux ordres STICK et PADDLE qui vous donnent accès aux 
contrôleurs de jeux. 


Vous n'avez pas à ‘’POKEr'"" ou à ‘’PEEKer'"’ comme sur d'autres ordina- 
teurs: la puce POKEY le fait pour vous. 


L'ordre STICK 


L'ordre STICK est suivi par un nombre compris entre @ et 3. Celui-ci 
indique quel est le Joystick à lire. Le @ indique le Joystick 1 et le 3 indique 
le Joystick 4. 
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La valeur que STICK retourne est la valeur pointée par le Joystick (donc sa 
direction). 


Comment lire si le bouton rouge sur le boîtier de Joystick 
est enfoncé ? 


La commande qui va lire si le bouton rouge est enfoncé est STRIG. Il y à, ici 
aussi, un numéro indiquant de quel bouton il s’agit. Par exemple : STRIG(2) 
désigne le bouton rouge du Joystick 3. 


Essayez cela en enfonçant un Joystick dans le socket n° 1 et tapez PRINT 
STRIG(@). Si le bouton était appuyé, au moment où vous avez frappé 
"RETURN, l'ordinateur affichera un zéro. Sinon, il affichera un un. 
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Comment lire l’état des poignées de Paddles : 


Jusqu'à 8 Paddles peuvent être couplés à l'ATARI, grâce à ses quatres 
ports, car chaque paire de Paddles n'emploie qu'un seul Socket. 


Un exemple: PADDLE(2) donnera l'état du Paddle numéro 3. La valeur 
obtenue est comprise entre 1 et 228. Le schéma suivant indique comment : 


Paddie donne: 


poignée poignée 
complètement à complètement à 
Gauche Droite 


Observer l’état du bouton rouge sur les Paddles : 


Lire l'état du bouton rouge d'un Paddle est tout à fait similaire à la lecture 
de ceux des Joysticks, à ceci près que l'ordre à employer est PTRIG, suivi 
d'un nombre variant cette fois-ci entre @ et 7 et non plus seulement entre @ 
et 3. 
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10 


L’optimisation 
des programmes 


L'écriture des programmes 


La plupart des livres théoriques sur la programmation vous suggèrent de 
commencer par un organigramme, élégante combinaison de cercles, 
rectangles et losanges qui devraient indiquer le chemin et les opérations 
que l'ordinateur emploiera lors de l'exécution du programme. En théorie, 
c'est séduisant, mais en pratique, spécialement lorsque vous utilisez un 
ordinateur comme l'ATARI qui vous indique rapidement les erreurs et qui 
ne s’auto-efface pas si vous avez fait une erreur, le temps perdu et les 
problèmes rencontrés ne sont pas si grands que cela. 


Il est, évidemment, indispensable de savoir exactement ce que vous voulez 
faire faire à l'ordinateur avant de commencer à écrire un nouveau 
programme, même si vous n'êtes pas sûr d'arriver à lui faire produire exac- 
tement ce que vous en attendiez. 
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Parfois, une sorte d'organigramme grossier, indiquant juste les grandes 
étapes que l'ATARI franchira, reliées par des lignes et des boucles aidera à 
clarifier les idées. 


C'est aussi un bon moyen de mettre en évidence des problèmes potentiels 
(tels qu'une boucle infinie) ou de ne pas spécifier la charge de l'ordinateur 
trop précisément. 


On dégage généralement le squelette d'un programme sur le papier, puis 
on le rentre dans l'ATARI en démarrant en ligne 199 pour laisser de la 
place pour déclarer les variables et tableaux. 


Si vous travaillez sur un jeu simple ou si vous adaptez un programme d'un 
livre ou d'un magazine, il est aussi bon de travailler directement sur 
l'ATARI, mais vous avez alors intérêt à tenir un bloc-note pour vous rappe- 
ler, par exemple, que N$ est le nom du joueur. 


Si vous avez ajouté de la mémoire, ne laissez surtout pas sa présence vous 
entraîner dans des habitudes de consommation tout à fait fâcheuses. |l est 
toujours extrêmement aisé de mettre en place de longues et encombrantes 
listes d'ordres IF qui pourraient être remplacées par des IF et GOSUB. 


Faire des programmes de jeu plus intéressants 


La meilleure chose que vous puissiez faire pour des longs programmes est 
d'ajouter un élément de surprise. Si vous pouvez inclure des situations qui 
n'arrivent pas à chaque fois que vous jouez, vous assurerez au jeu une plus 
grande durée de vie que celle que vous obtiendriez si la même situation se 
retrouvait à chaque partie. 


Une autre idée est d'insérer une notion de niveau de difficulté. Assurez- 
vous que cela n'augmentera pas trop le niveau de jeu et que, même au plus 
haut niveau de jeu, le score final sera intéressant. 


Vous pouvez encore ajouter de l'intérêt au jeu en attribuant des points, 
bonus, parties gratuites ou autre bonification en fonction de la vitesse et de 
l'habileté du joueur. 


Une possibilité est de vous attribuer un ‘’galon” de plus. La cartouche de 
jeu ATARI ‘Star Raiders” (les aventuriers de l'espace) utilise cette possibi- 
lité en vous nommant “Commandant” à la place de Capitaine”. 


Je vous parie que pour en bénéficier, il faut jouer 24 heures par jour! 
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Comment accélérer vos programmes et économiser 
la mémoire 


1. Essayez de restructurer le programme BASIC pour le rendre aussi effi- 
cace que possible. Cela abaissera le temps d'exécution et économisera 


la mémoire. 


2. Placez tous les sous-programmes fréquemment utilisés et les boucles 
FOR-NEXT en tête du programme. Comme le Basic référence un sous- 
programme par son n° de ligne, un sous-programme au début du 
programme demande moins de temps de recherche. À la toute 
première ligne, placez un GOTO vous envoyant à la boucle principale 


du programme. 


3. Quand un sous-programme très court est employé, supprimez-le et 


réécrivez-le à l'endroit où l’ordre GOSUB se trouvait. 


Exemple : 


19 FOR X=1 TO 19 

28 GOSUB 5ÿ 

39 NEXT X 

4ÿ END 

59 PRINT ’HELLO'':RETURN 


donnera : 


19 FOR X=1 TO 19 
29 PRINT HELLO” 
39 NEXT X 

49 END 


En faisant cela, vous sauverez de la mémoire et accélérerez l'exécution. 


4. L'écran n'est pas utile, vous accélérerez vos programme de 30 % en 
supprimant sa régénération. Coupez celle-ci par POKE 559,9. Quand 


vous voudrez le récupérer, employez l'ordre GRAPHES. 


5. Si vous connaissez le langage machine, employez la jonction USR. Le 
langage d'assemblage est beaucoup plus rapide que le BASIC. 


6. Supprimez les REM, elles prennent de la place. 


7. Si un nombre est utilisé souvent, 6 octets peuvent être gagnés si vous 


placez ce nombre en variable, que vous référencez bien sûr. 
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. Au début du programme, les variables peuvent être initialisées par des 


instructions READ/DATA. Cela sauvera de la mémoire. 


. Utilisez les deux points pour placer plusieurs instructions sur une 


même ligne. 


. Employez POKE à la place de SETCOLOR. 
. Employez POKE à la place de POSITION. 
. Employez POKE à la place de STICK, PADDLE, STRIG, PTRIG où 


"’POKEr”" est donné au chapitre ‘Adresses mémoires”. 


. Une idée est de chaîner des programmes. Un exemple : le premier 


programme pourrait initialiser les variables, chaînes, etc. et lancer le 
programme principal. 
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11 
L'ordre ”SOUND 


L'ordre SOUND est l'un de ceux qui opèrent grâce à la puce POKEY. Ce 
que j'aime à propos du son sur l'ATARI est qu'il soit à travers le haut- 
parleur du téléviseur et non à travers un mini haut-parleur ou bruiteur ainsi 
qu'on le voit souvent sur les ordinateurs. 


Une autre chose que vous savez probablement, l'ordre SOUND a 
quatre paramètres : 


SOUND canal, tonalité, distorsion, volume, 


Canal : c'est un nombre indiquant sur lequel des 4 canals offerts on 
joue. Le nombre est compris entre @ et 3. 


Tonalité : nombre compris entre @ et 255, plus le nombre est élevé, 
plus la note est basse. 
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Distorsion : c'est un nombre compris entre @ et 14, bien que vous puis- 
siez avoir un interval de @ à 255. 


Un nombre égal à 19 donne une ‘note pure”, les autres don- 
nent des effets spéciaux. 


Volume : Un nombre compris entre @ et 15. Plus il est grand, plus le 
son est fort. 


Vous pouvez créer un bon effet en jouant des notes similaires sur tous les 
canneaux. Essayez ceci: 


SOUND 9,299,19,15 
SOUND 1,291,19,15 
SOUND 2,292,19,15 
SOUND 3,293,19,15 


cela donne un effet amusant. 


Un autre effet intéressant peu-être obtenu en abaissant rapidement le 
volume d'une note. 


Le programme suivant le fait: 


ch FÜR TÜNE=ESS TO à STEP -24 
36 FOR HOLUME=IS TO & STEF —-£ 
46 SOUND 2: TOME » 18 OLUME 

S6 NEXT LOLUME 

à NEXT TÜNE 

r& END 


pour stopper tous les sons, employez END ou pour arrêter un son employer 
SOUND canal,9,9,9. 


L'adresse 540 


Cette adresse-mémoire est un décompteur de temps. Tous les soixan- 
tièmes de seconde, sa valeur est décrémenté de 1. En temps normal, sa 
valeur est de @, donc rien de changé. 
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L'adresse 549 peut être utilisée pour chronométrer un son jusqu'à 4, 
5 secondes. 


Le programme suivant joue chaque note durant 2 secondes. 


RER ++ SOUNC DEMO 2 ++## 

FOR TONE=ZSS TO & STEP -24 

PÜKE 549,126:REM 129-2 SECONDS#56 
SOUHD G,TONE,16,15 

IF PEEKL54ÿ5%< 20 THEN 5ÿ 

NEXT TÜHE 

END 


jen kate 
1 Ua e Œ 


DR] 
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12 
Les adresses mémoire 


Avant d'aller plus loin, vous devez d'abord comprendre parfaitement la 
logique de PEEK et POKE. 


Voici des exemples: 


— POKE adresse, octet ou ‘’octet”’ est un nombre compris entre @ et 255. 
— LET A=PEEK(octet) ou ? PEEK(2936). 


— POKE est utilisé pour modifier le contenu d'une position de mémoire 
RAM. 


— PEEK sert à ‘’prendre” le contenu d'une adresse. 


Vous devez aussi comprendre les adresses sur deux octets. Supposons 
qu'une adresse soit rangée aux octets 14 et 15. Pour trouver l'adresse 
faire : 


ADDRESSE = PEEK(14) x 256 x PEEK(15) 
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APPHI 


POKMSK 
RTCLOK 
SOUNDR 
ATTRMOD 
LMARGIN 
RMARGIN 
ROWCRS 


COLCRS 
DATCURS 
NEWROW 
RAMTOP 
LOMEM 
MEMTOP 
STOPLN 


ERRSAV 
PTABW 


FRO 
RADFLG 


SDMCTL 
SDLSTL 
SSKCTL 
LPENH 


LPENV 
SYRES 
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Adresse 
décimale 


96 
19- 
128,129 


144,145 


186,187 
195 
201 


212,213 
251 


559 
560,561 
562 
564 


565 
589 


hexadécimale 


Adresse 


D.E 


19 
12,13,14 


Description 


adresse sur 2 octets de la plus 
haute mémoire employée par 
le BASIC. 

autorisation d'interruption. 
compteur de balayage TV. 
drapeaux d'E/S bruyant. 

attract mode — 128 — YES. 
marge G d'écran. 

marge D d'écran. 

ligne du curseur en mode gra- 
phique. 

colonne du curseur en mode 
graphique. 

‘graphics’, mode %, caractère 
situé sous le curseur. 

ligne jusqu'où DRAWTO ira. 
nombre de pages de RAM. 
pointeur vers le bas de la mé- 
moire BASIC. 

pointeur vers le haut de la mé 
moire BASIC. 

n° de ligne de STOP/TRAP. 
code erreur. 

vecteur 19 par défaut (PRINT 


TAB). 
vecteur retournée après USR. 


switch RAD/DEG : 

(9 = RAD) (6 = DEG). 

OS DIRECT MEMORY ACCESS 
CONTROL. 

pointeur vers les paramètres 
d'écran. 

contrôle du port série OS. 

pos. H. stylo optique. 

pos. V. stylo optique. 

quand on trouve toute valeur 
non nulle, le système effectue 
un démarrage à froid sera ef- 
fectué après RESET. 


Adresse 
hexadécimale 


Adresse 


Non décimale 


Description 


GPRIOR 623 26F sélecteur priorité OS. 


PADDLO-7 624-277 270-277 poignées de Paddies @ à 7. 

STICKO-3 632-635 278-27B poignées de Joystick de @ à 3. 

STRIGO-3 644-647 284-287 boutons de Joystick de @ à 3. 

TXTROW 656 299 ligne du curseur dans la fenêtre 
texte. 

TXTCOL 657,658 291,292 colonne du curseur dans la fe- 
nêtre texte. 

TXTWND 703 2BF fenêtre de texte: 
24=non 4 = oui 

PCOLR® 704 2CO couleur du missile-utilisateur @. 

PCOLR1 705 2C1 couleur du missile-utilisateur 1. 

PCOLR2 706 2C2 couleur du missile-utilisateur 2. 

PCOLR3 707 2C3 couleur du missile-utilisateur 3. 

COLORY 708 2C4 couleur du champ-jeu. Regis- 
tre O. 

COLOR1 709 2C5 couleur du champ-jeu. Regis- 
tre 1. 

COLOR2 710 2C6 couleur du champ-jeu. Regis- 
tre 2. 

COLOR3 711 2C7 couleur du champ-jeu. Regis- 
tre 3. 

MEMTOP 741,742 2E5,2E6 pointeur haut mémoire OS. 

MEMCO 743,744 2E7,2EB pointeur bas mémoire OS. 

CRSINH 752 2FQ 9 + curseur affiché, 1 — curseur 
éteint. 

CHACT 755 2F3 4 — texte affiché de haut en 
bas. 

CHBAS 756 2F4 224, 226 pour le jeu de carac- 
tères. Vous pouvez aussi 
"POKER" votre adresse de jeu 
de caractères en RAM. 

ATACHR 763 2FB dernier caractère ATASCII. 

CH 764 2FC code de la dernière touche 
pressée. 

FILDAT 765 2FD couleur à employer par FILL. 

CONSOL 53279 D91F état des touches jaunes du cla- 
vier. 

STIMER 53769 D209 démarrage Timer. 
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OA 
OC 
12,13,14 
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Noir Adresse Adresse Description 
décimale hexadécimale 

RANDOM 53779 D20A générateur de nombre aléatoire 
produisant un nombre compris 
entre @ et 255 chaque 69° de 
seconde. 

PACTL 54918 D302 52 — magnéto-cassette en 
route. 
60 - magnéto-cassette arrêté. 

PENH 58284 D4@C valeur horizontale du crayon lu- 
mineux. 

PENV 58285 D49D valeur verticale du crayon lumi- 
neux. 


vecteur d'entrée dans le DOS. 

vecteur de redémarrage à chaud. 

3 octets internes de l'horloge. 

pointeur vers le début d'erreur en RAM. 

vecteur d'interruption (paramètres d'affichage). 
interface disquette. 

routine de mise en place des vecteurs. 

ce vecteur est exécuté en place des vecteurs. 

ce vecteur est exécuté après les vecteurs. 

routine initialisant les Entrées/Sorties série. 

entrée en mode ”’tableau-noir”. 

démarrage à chaud. 

démarrage à froid (procédure de mise en route). 
cette routine lit un bloc de 128 octets de don- 
nées et les place dans CASBUF (les données 
démarrent à 499 en hexa.). 

ouvre la cassette pour une entrée de vecteur. 


13 
Programmes de jeux 


Les programmes suivants ont été conçus uniquement dans le but de 
l'amusement. Aussi, j'espère que vous entrerez ces programmes ainsi que 
nous les avons listés et que vous vous amuserez avec eux. 


L'intérêt de ce chapitre réside dans ce que vous ferez pour adapter ces 
programmes à vos goûts et dans les idées qu'ils vous suggèreront pour vos 
futurs programmes. 


Malheureusement, l'imprimante ATARI n'imprime pas les caractères 
graphiques, aussi ai-je dû reporter à la main les caractères appropriés. 


Notez que le symbole ( ) est celui du caractère d'effacement d'écran. 
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BEETLE JUICE (jus de scarabée) 


Ce programme, à propos d'un pauvre petit scarabée rouge, est l’un de mes 


préférés. Il est listé ci-après. 


Avant de faire un RUN, sauvez ce programme par un SAVE, car une erreur 
à l'intérieur de celui-ci, plus particulièrement dans les DATA, risque de 
planter” l'ordinateur (car il utilise des routines assembleurs via des 


appels USR). 
Th PSE 
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le JUiILEs- 


— 
E 

- E 
& 


le whose ohiluy 
he Dther side Of 

i ; SU Lask because 
inately for Jour bestle, there 
are SOMME mMafiiac drivers arOoUhd tryira 
LO PUL Beetle ,juice back on the menu 


TO Mag Ge LP Of JON if YOUr 
desperate pilot to get to the other 
Side, The Ultimate 9021 is Lo get à 


betises across, 


Scoring 15 for 
the beetles = 

À score Of les: 
about SAGA 1S 
greater than FSbd 


ï i ji |} F LE 
the sde 
ET FAUL EUNH 

C5 GRAPHILS G:PÛKE F52,1:01M #1: 


36 SETCOLOR Z,3,4:SETCOLOR 4,3,4:7 "Oo y 


ou desire instructions "; 
40 TRAP 26: INPUT AF:IF A$="Y" THEH 736 


08 IF HS<S'N" THEN 7 37 “ PARDON l':7 35 
OTO 5 

64 TRAP 46698: GÛTO 35 

ra CLR :GOTO 24 


59 GRAPHICS 1:POKE 756,226: SETCOLOR 9,9, 
20 FOR C=1 TD 57 fon 
Z2MENENT Ci? 46,," " 
199 SETCOLUR 24,4 

118 GOSUE 48G:POKE 752,1 

126 RESTORE 679:F0R C=8 TO 98:READ D:POK 
É 1536+C.D2NEXT C 

13à PÜKE 53278,2:POKE 545,255 

148 C=USRC 1536 %E=STICKCGIIIF Eté THEN 
SOUND 9,7,19,153C=USRC 1585 >:SOUND 89,9 


154 IF E=13 AND PEEK<2962%X<216 THEN SOUND 
G, 206, 16, 19: C=USRÇ 1615 x: SOUND' @,6, 6,6 
168 IF PEEK{2962=141 THEN GOTD 196 
17@G IF PEEK(S532635 XX >4 THEN 266 

189 GOTO 149 

19G REM #* YOU HIN ## 

208 G=5+14XPEEK< 540 > 

218 FOR D=252 TO 4 STEP —4:SOUND 9,0 
15: SOUND 1,0H#1,1@,15: SOUND Z,0H2,1@; 
OUND 3,D+3,14,15 

2Z28 NEXT D 

234 FOR C=6 TD 3: SOUNO CO D BENEXT 

24@ FAGRLES, CHR 125 à; BEETLES HÔME 

SAFEL'Y 5F 


258 1F F=18 THEN 468 
268 X=USR(161952:IF PEEK(296 216 THEN 26 
(e] 


»19; 
1555 


F8 GOSUB S589:G0T0 139 
66 7 "BEETLE JUICE IS ON THE MENU AGAIN 


239 FOR Fi TO 45: C=USRE 1536 2: POKE 707,P 
<CSSr7rE 2 

394 POKE_INTERNDX 6 2£6 +PEEK< 286 H256%4PEE 
KEÇC207 3, PEEKC SF FE à 

319 SOUND 5,RND< 4 #99 ,99,15:NEXT D 

326 POKE 7ür,6:SOUND G,64:@43 8 


339 ? CHR$C 125 35" Hit any key for anot 
het 90, 
349 7 "_ SCORE=";6:6=9 


358 POKE 764,255:60SUE 5864 
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54 


355 IF PEEK(7642=255 THEN 368 
376 POKE 767,594: CEUSRS 1595) 
En C=USR< 161952: IF PEEKC286X216 THEN 38 
3384 F=W: GÜTO 138 
+44 GRAPHICS Z:SETCOLOR 2,0,ÿ937 #5;" con 
aratulationsil" 
di Ÿ HGsrsss "VON HAUE MANAGED TD" 
424 7 #G::"GET 14 BEETLES HOME SA 
PÈRE 

439 7 #5,,"Well done indeedili" 
444 POKE O2 GAPOKE 52249. GB: PCKE 53254 
8: POKE 53251,0 
454 + #Gi'"score=";6 
e FOR C=8 TO 255: SOUND D,Cr12:19:NEXT 


474 SOUND 4,000: END 
48@ A=PEEKC 106 )-8:POKE 54279,A:E=256#A:F 
OR C=B+512 TO B+1824:POKE C-B:NEXT C 
49@ RESTORE G6G:FOR C=B+531 TO B+538:REA 
D D:PDKE C,D:NEXT C 
SA RESTORE 696:FOR C=B+579 TO B+577:REA 
D D:POKE C-DENEXT C 
519 RESTOURE 626:FOR C=B+319 TO B+317:REA 
Ü O:POKE C-D2NEXT C 
S29 RESTORE 539:FOR C=B+566 TO B+573:REA 
Ü D:POKE CD NEXT C 
539 RESTORE 549:FO0R C=8+797 TO B+714:REA 
Ü D:PÜKE LDINEXT C 
549 RESTORE 539:FOR C=8+347 TO B+354:REA 
D DEPOKE CD NEXT C 

Sÿ RESTORE 510:FOR C-B+385 TO B+992:REA 
D D:PORE CADENENT C 
569 _C=INTÉ € 8+986 »/296 2: D=B+986-2S6%C : POK 
E 246,0:PÜKE Zür,C 
57D_POKE 553,46:POKE 53277,3:POKE 6231: 
POKE v64,12*16+8:POKE 765, 7#16+E:FÛKE 7 
B23:POKE FO 3% 1645 
S9ÿ _E=53779:POKE 203,PEEK(E):POKE 264,PE 
EKCED:POKE 205,PEEKCÉ D: PÜKE 53251, 168 
599 RETURN 
690 DATA 24,113,254,191/191 25411324 
618 DATA 24:90-6021267126-68766 
624 DATA 233,68,238,123,123/239268 238 
62G DATA 231,66-218/127 127221866231 
649 DATA 119,34,119,222,222,119234,119 
ESA DATA 231,66,91,2942294791 662231 


668 DATA 24,142,127 229392939121 r142524 
676 DATA 184,224,205, 169 » 200 » 197 205176 
A 
ar 
24 DATA 264» 144» 3 169 2 20 » 135 2» 239 » 2 
de, 220 
ec il LOS » 234 9 234 » 159 » 2609 » 197 2209176 
F69 DATA Sÿ,133, 209 » 169 2203 » 141 20 2 208 » 16 
Sa Lt 2 141 » 1206 5 1602205 1dl oc sr LE s SE 
F19 DATA 154,138,206 2208 » 2 » 199 3207 » 158 20 
1185009262 145 9 O6 » CO » 192 9 À 9 LOE 0 LG 9 Jos 
64,259, 206,288 
r26 DATA 2,259,207 °163200 2620 24» 30 68 » 12 
É, 125,80, 660r0 
F3 ? " BEETLE JU I CE" 


74Q 7 " ARE ER ne 
F5Sÿ 7 :7 " vou are 3 shall red beetle wh 
o3E en1U" ; 


F. desire 13 Lo get Lo the other sid 
e of the road, Thiz is MO easy task becau 


Fr % "unfortunately for your beetle,the 
re ‘ 

FSn + "are SOMME Mania drivers OoUNd tr 
Jirrg" 

Fa 7 "Lo put Beetle Juice Back on the 

er 

28 + "againitir 6 NM Ou Mag MOVE UP Or 
dot 1 your" 

516 T "desperate plot to get to the othe 

Fr 4 

B2g T Miide, The uilimale 9031 :i3 to gt 
ia" 

339 + fbeetlez across," 

GdG % 57 " Cooriha is for the time taken 
Lo get" 

258 + Mthe beetles 233f614J home, " 

GER + "A score of less thaï 2GAG is poor 
Sr "about SW 15 23v3r239%e ard" 

G84 + "'oreater than FO is excellent," 
SE 57 HIT ENT KEY TO PLAY BEETLE JUI 

C ; 

364 PÜKE r6d2299 

Gi6 IF FEEKSFEd ESS THEN 916 

329 GOTO 58 

34 END 
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SMASHOUT ! 


Le but de ce jeu, du genre massacre, est de détruire autant de briques que 


vous le pouvez, en utilisant votre Paddle en haut de l'écran. 


Le Paddlie est contrôlé par les mouvements du Joystick. Vous l'utilisez pour 


maintenir la balle en jeu. 


Vous marquez des points en détruisant des briques, mais attention: si vous 
laissez la balle toucher le haut, votre score est divisé par deux. 


Quand vous aurez fini de taper le programme, commencez par le sauver, 
car si les DATAS ont la moindre faute, l'ordinateur risque de se “planter”. 


Après avoir frappé RUN, soyez patients car l'ordinateur redéfinit le jeu de 
caractères, POKE les codes machines et met en place les caractères- 


EN : 


utilisateurs. 
ig EF 
3 


4 # SMASHOUT — HRITTEN BE # 
"4 REM * PAUL EUNN SEPTEMEER 19352 # 
g © CHR$(125;"PLEASE HAIT HHILE 1 REDE 


FINE CHARS":ELS=3:K=142/19: MODE=i 
49 7 “AND SET UP PLAYER/MISSILE GRAPHICS 


Run) LL] in 
dr me En 


Er Por 
1: 
C2 


tp eg Co Cl ul 
Lx! 


Es fit res ei 
LES 
[rs 


ELx] 
[rs 
es D. 
( 
+ 
TT 


L%] 
LT 
—| 
‘L) 


Mo Pres Greene lime 
Sie cl 
Ti 


La 

su 

Mi MT 
U 


56 


TL 
— 
TL 
[Ex 


JO TL 
| 
TT 


LOT 


pr 
TL 
Pi 


. THANK._ TOUL. . "st s7 


“PLÉAÉ SE HIT THE ‘START KEY TO ÉEGIN" 


FOR P=1536 TO 1536+149:RERD *:POKE P, 
Hi F 


DATA 


4, 173212022001 » € 2 208 2 4 5 2.30 » 20 
230 » 293 » 201 11 2009 29 » 198 » 203 » 1933 
24» 165 2 203 » 141 20 2209 2201 2901757 
169 296 9 133 2203 224 » 165 2203201 1 


Lo133 203 » 159 » 206 » 201 » 1 2209r2r1 
L 


| DOS 201 »2 9 208 » 2 » 230 » 208 » 109208 


12208 2001 2197» 144r43169s15133%2 
1652208 220196 r176»45 16932133 
1652207 2201 91 2208 2 22 » 2.30 » 294 » 16 


Le 230 » 205 » 160 7019951 


[ax] 
Ces DR 
nai] 
— 
TI 
EL 
Lu] 
pose 
“ 
LA] 
LI 
fi 
= 
Qû 


ATH 653145 2204 » 9 » 192 2 4 2 209 2246 » 165 


Foy Jo 


= += Lire 


=] 


DATA 261,2%208 222 9 199 » 2084 » 169 » 284 228 


Sr Gt 


1" co 


225195 2 209 » 1600 2139213 rBsi 
ATA 264,200 » 192 4208 » 245 » 3630123» 


= 


D 


TL 
er 
zx 


ni 


bi Qi np bte ps 


Mio 


1ù D 

26,6 

IF_PEEK(532793%< >5 THEN POKE 53279,5 

E 52279,6:G0T0 Zi 

DIM 6#(3):6$="6GANTE OVER" 

GRAPHICS 1+16:RAMSPEEKC 146 -B: FOR = 
RAMTK256+X , PEEKC 57344+x 32 N 


(RAT) 


ren 
= 


oi lo 


4 {© © 


fo Mi ri 
Cut] 


ba 


E_TSE,RAMEFOR X°8 TO 7:POKE RATH2 
sressan D,2:6:G0SUB 269:60T0 3 
ee ee 
,0:7 #6;"balls=3" 

COLOR 123:PLOT 1,4:DRAUTO 13,4:PLOT 

2 DRANTO 15:59 
COLOR 33:PLOT 1:5:ORAMTO 12,8:PLOT 1 

:OREHNTO 157 


234 COLOR 151:PLOT 1,3:DRANTD 13,38: PLÜT 


3û 

sa DFAHTO is 33 
gg 
315 


+ 1 


Tips 
[Ru 


Pa pu On Di 
min 


us — 
SE ue Ee Du] 


4 COLOR 1:PLOT 1,16: DRANTO 13,16: PLÛT 
11: DRAHTG 15,11 
3 COLOR 33:PLÜT 9,23:DRANTO 5,1: DRANTO 
19,1: DRANTO 19,23: RETURH 
325 RHMERHIT-S:FOR #=512 TO FES: PÜÛKE RATX 
296 +K 0: NEXT #3 RATERAMEZSE 
334 POKE FHH628,255:POKE RAFH621,2955 
348 POKE 999346: POKE 54279, RAM/256: PÜKE 


MS TES ol EURE EX Dent LX) 


59 _ POKE ri4,15*16+16:POKE 745,54: POKE 5 
4e, 156: POKE 53249,128:PFOKE 53296, 1 
359 PÜKE 243,128:PÜKE 268,123:PÜKE 256,2 
:POKE 267,1: EALL=RAM+ 16 
379 HIGH=INTÉ BALL-256 ): LOH=BALL—-Z2SE*HIGH 
364 POKE 2Z@&4,LOH:FOKE 265,HIGH 
394 A=USR€ 1536 2 
Ai IF PEEK 294 +2564KPEEK< 285 3-RAKSES T 
HEN POKE 267,1: MODE=Z:FOKE S3256,û 
+14 IF PEEK( 53268 X >9 THEN X=PEEK( 295 +7 
: Y=PEEK( 246): POKE ZGr,ZiPOKE 260 T>=x DE 
2 + 'PEX 2: MODE=1 


57 


58 


426 X=USR( 1536 à 

4356 IF PEEK(53253:=9 THEN 439 

444 FOR P=2Z TO 12 STEP —1:SOUND &,F,12, 
15:NEXT P:SOUND 5,6,5,8:SC=SC+10: POSÉTTÉ 
NH EH HE:SC 

354 A=INTE € PEEK( 248 3-59 2/38 41 

464 Y=PEEK£ 264 H2SGXPEEKSC 265 RAM: T=IH 
FC r-664 3-4 5345 

476 POSITION K,TiT HE: ° 

456 PÜKE 297 ,f"0DE 

498 POKE 23276,2%0: x=USRX 1586 à 


SR IF PEEKS 244 H4ES6XPEEKC 285 RAM>756 T 
HEH ZE 


58 SÛTO 338 

26 FOR PF=ÿ TD 255 STEP F:SOUND 6,P,15,1 
SENEËXT Fi SOUND 6,6,5,8 

238 IF PEÉEK(532F9 KE ee 5:54 
HE ELS=ELS-1: POSITION 12,857 #6;"balls= 
":BLS:FMODE-1:POKE 52961 

co IF ELS=6 AND PEEKLS2279326 THEN 558 
569 IF BLS-6 THEN 54% 
ocre POKE RAMHT6B, GB: POKE RATHF61.,@:POKE ER 
HF+F59,9: G0TD 349 

258 P=W:FOR X=1 TO 18:FOR v=4 TO 11:LOCA 
TE x-V-021F CK 32 THER F=i 


339 HEXT T:NEXT &:IF P=ÿ THEN BLS=BLS+1: 
Es UE 266: POSITION 12,457 #6;"balis=";Bl 


500 GRAPHICS 1+16:50SUB 266:POKE 7956 ,RAF 
FES6+6: SETCOLOR 6,2,6:POKE 5959446 


Li IF PEEK(5327933%6 THEN 619 
A POKE 53279,@:1F PEEKCS3279 x 36 THEN 


638 POKE RA+768.0:POKE RAM+761,0:POKE R 
Ar+759, 6: GUTO 346 

649 FOR 4=6 TO S:POSITION 6+k,12:7 #6:6$ 
CHELEREUMFOR VEIGER TO 18RK#6 SOUND 62% 
559 SETCOLOR D,XS:NEXT ViNEXT X:SOUND 
APIs PI: 

GED IF PEEK( 5327926 THEN 660 

E7B SC=8:BLS=3: SOUND G,6,8,@:60T0 680 


GRAND PRIX 


Utilisez votre Joystick pour déplacer votre voiture de gauche à droite en 
roulant dans un étroit couloir de nuit. 


5 GRAND PRIX — P,EUNN &X 


HE1L6:SEPEERC 106 D: 054256: FOR 
512 TO G+64u:FOKE N,G:NEXT NiPÜKE 5 
: CRHSH=25 D 

JKE 553,46: Re PERS LE AE POKE F4,215 
. :POKE ré, 2HA:POKE 532563 i 
Es ue N=G+552 TD Q+S61:REND A:POKE N,A: 
EXT 


54 DATA 129,195,1652242242153:2192169:35 


Fa GRAPHICS 9:SETCOLOR 2,9,9:POKE 53277 
SPOKE 559: 4 


PÜÛKE F52,1:POKE 53278,À 

FOR P=@ TO 2S:FOR O1 TO KZ:F " "zsNE 
AT Dir "i \':NEXT P 

184 S= STICKC Ge Make Gear XZ I Ken Se 1 2: 
PÛKE 53243,%x 

119 SOUND 4,49,19,15:SC=SC+P1:SOUND 9,6, 
GPA 

124 IF D THEN D=ñ:Z=2:50T0 178 

124 A=PFEEKISSF FE : 

146 IF 4:55 AND A<17ÿ THEN Z=2 

154 IF A>176 AND KZ<15 THEN Z=5:0=i 

168 IF ASS AND X2>2 THEN x2=X2-1:7=1:0= 


178 FÜR N=i TD KZ:T " ">:NEXT N 
he 1F A=1SE ss NOT 1 THEN 7 " FINISH 


1: ue 
PA 
[E 
\iik=xz+] 
ee V=PEEK 33292 4 IF r<x@ AND I THEH GOT 


0 324 

234 IF Y<:4 THEN 50TD CRASH 

Z4ë GOTO iG& 

259 REM #* YOU CRASHED! *#% 

266 D ANS DA DE FOKE Ne on 


3r 8: SOUND à,RNDX 9 K2ÿ+26,38,15:POKE 79 
4, PEEKI 55774 1 


2F4 IF PEEKIS3rrD:<244 THEN 268 
54 FOKE gorge, 4% 2% "OL SCOREDE "SCI 
F “HIT Ar KETr.":PÜKE F54,255 
SOUHND 4,6,n,8 
IF PEER F5 
RLitH 
FÜR r=4 Ti ESS:PÛKRE F1, T:NEXT 
F "TOUR SCORE 3 '";SCIPFOKE F8, 
eo, EONUS 1: 1994":5=1400 
FÜR G=1 T0 1@hñ STEF 1W:E=<E-imiS C 
POSITION 14,97 SC: POSITION 14,1:7 
“sSOUND &,G-4,1B1BNET & 
SOUNO 429 209 29 

:PISPIK2:T “STEP VALUE NOH 15 "PI 


255 THEN 389 


St © 


L: 
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Création de motifs 


Ce programme, qui n'est pas un jeu, produit des motifs superbes. 


Entrez simplement un nombre positif quand on vous le demandera et 
regardez son motif correspondant. 


if REM KYE PATTERNS Er PF. EÉLiHH 

24 REF THÈSE STEPS GILE GOOD RESULTS: - 

2H REM 121,124, 

45 REM 

56 DIN Hi 14 15 DEG ‘U=i: GRAPHICS S: COLOR 
1°: SETC COLOR Fendi SETCOLOR | rs 

6ÿ % "HHAT STEP “3:32: INPUT F 

FE L=L+F 

SD Mai SINCL ET +128: Bi COSE L rEr7E +854 
36 LOCATE AE; IS IF I 4 THEN DRAUTO AE: 
SOUND 6,420 283 GOT 138 

iGé IF LU THEH FLOT HE: ef 

Lin SOUND 9,B,15,8 

124 DRAHTO FLEÉSHNEZT L:GOTO FA 

138 * “SONOTHER PATTERN ‘;3: INPUT H$ 

146 IF HÉSi.i3="Y" THEH RU 

156 IF Hfil.l EN" THEN 136 

168 GRAPHICS fs END 


ALIEN BOMBS 


Dans ce programme, vous devez abattre dix ALIEN BOMBS qui descen- 
dent sur vous. 


Utilisez les touches 1”, "2" et ‘’ 3” pour actionner les lasers du haut, 
milieu et bas. 


Toutes les instructions sont inclues dans le listing. 
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58 SETCOLOR Lrtsds: SETLOLOR Ze2rigie SETCOL 
OR docsiB@ePÜkRE Es 

FAQ TRNP Ci? "56 INSTRUCTIONS C'v/N3" 35 IN 
PUT AS:IF ASCSUN" AND AFSSUY" OTHER 76 

36 IF HE='N" THEN 356 

96 +=" AN EUIL HARLORD HAS SENT TEH RAD 
ID ":SOSUE 368 


166 H$f="CONTROLLED BOMBS,AIMEL AT TOUR P 
LAMET "+: GÜSUE 266 


Lin Hé=" “ISOSUB 258 

126 HE="TOUR MISSION 2 'EIGOSUE ZE 

138 +=" T5 DESTRODYT ALL ALIEN BONES. ": 
GOSUE 3ÈE 


144 H$="FARILURE TO COMPLETE TOUR TASK HI 
LL'eGOSUE ZE 


on IH TOUR COURT MARTIAL! "5 
LISE 
i6g HE=" "ISOSUB 3654 

F6 A$="YOUR CONTROLS :°:GOSUE 366 

il. FIRE UPPER LASER CANNOH": GO 


Vpn LT perte bete 
Lg CO Te 
nn TT 
ICS De a] 
me 1 
Ti [I 


4 Hz" £, FIRE MIODULE LASER CANNON":G 
OSUR 366 
SA Hz" 3. FIRE LOHNER LHSER CANNON":50 
QUE 366 
218 Hz" ISOSUS 368: 4$="SCORING: 3 SOSUE 
SEE 
224 HE=CHIT USIHS UPPER CHNNON =18 POINT 
S'IGOSUE 366 
26 HE=HIT USING MIDDLE CANNON=26 POINT 
"3 GOSUE ZÈE 


A$="HIT USING LOWER CANNON =34 POINT 
GÜSUE 268: A=" "IGÜSUE 25û 


pas Opus LOT 
£ 
LENLE 


55 HF="ONLT_4 À DIRECT HIT HILL PENETRATE 
THE: GOSUE SE 
25 HE="ALIEN BOMBE. .50 BE CHREFULLI "IS 
DE 2ESiH#=" MIGOSUE 2466 
sc HE=" “:GUSUE 364:H$=" THE GAME IS à 
LIER HHEH EITHER: —":GOSUE SEE 
256 H$="i. TO DESTRDOT LL BOMBS":GOSUR 
SEE 
C3 HE= EE, À EUMB OESTROTS TOUR PLANET": 
GUSUE ZE 
368 HE=" SOSUE 364: 44=" PRÈSS ‘RETUR 
H' TO CONTINUE": GOSUE SE6 
314 PÜÉE r64,255 
324 IF PEERS FE iz THE SEE 
336 POKE ré6d4,259: PÜKE FE» 
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348 FÜR 6=6 TO SRSPOSITION EGIT ° 


3 Î : T3 LENCHEMFOR Gel TO IH: NEX 
T Gs SOUNE 1568 iGsisit BIS. S ss SOUHD 1 
see NET SIT 2: RETURN 

SrE RER SET UP PLARHET 

358 GRHPFHILS FiSETCOLOR 2,12%4s: SETCOLOR 
sr ss SETCOLOR ls1341E 

236 COLOR SIFOR L=6 T0 153 STEP 2 

446 G=INTE AND GET +1 

Si PLOT Lars: DRANTO Lai ii 

426 PLOT L+isr gs DRANTO L+ist PS-GiiNEËET L 
. SETCOLOR Dsoirss COLOR 1 


Lt: DRAHTC Lstd 
OT 3-1W:PLOT 3,11: PLOT 4,11 
OT SiZiPLOT 4, i3:PLÜT Z,15 


+ + 
CLÉ 
TUE 
[ne 
Et Où 
ere 
Ti 
Ke 
L'mus 
— 
CIE 


14 

+6g PLOT 3,389: PLÛOT 5,21: PLOT 4,3i:PLOT 4 
dl Dee PLOT 4,S2S:PLOT 5,233: PLÔT & 
479 PLOT 3,98:PLOT 3,51:PLOT +51 PLOT 4 
29 PLOT See PLOT 4,53 PLOT 5,9: PLÛT € 


456 POKE 752-1:FOR L=i TO 12:7 " GET RE 
LR ie 1:128,18,14:FOR J=i TO Z@iNE 


© 


+3 Ÿ DD5ET Re Lerrittr is FU 
F dei TÉ EBIHEZT 

398 HEAT L 

5i9 “ph. .50..S0riis 

Jeû FOR Lezi TO SFÜR Gel TO E@ STEF 18i5 
OUNO els 1@ol+lE: 4=g+i 

296 NEXT GENEET L 

an + TI SOUND 1,4,1,ÿ92 5-5 

S06 REM MAIN PROGRAM LOOF 

268 FOR GU=1i TO 14 

cr4 R=S 

298 FÜR E=Z TD F6 STEP 5 

es PÜKE 656, 21% SCORE: "2:55" ALLIER NU 
“:0iU 

COS SONO L,RNDCDKS,126,7 

Ei4 W= IHTE RNDK 24 22 Ce RNDK € 2 EE 
+: R=RHi 

EE IF Rr15d4 THEN F=i5d 

E24 IF Kid THEN F=d 


a COLOR 1:50SUB 774 
54 P=PEEKS 76453: IF P=3i THEN E=1@:KE=KE+ 
+? É0SUE SG: POKE 754,255 
GE IF F=34 THEN KK=KK+i:E=2û: GOSUE Su: 
POKE r6d,255 
6rà IF P=25 THEN KK=KK+1:E=538:G0SUB 338: 
POÉE fr, 255 
COLOR &:GOSUB Fr 
ä NEXT E 
SA COLOR 1:GOSUR Fra: FOR Lei TO 5à 
FE A=INTE RNDE GES +1: COLOR Hi PLOT R,E30 
FAATU BHO 4 5#153 , RNDX 9 2479: SOUND 1,RND< 4 
On, 12A1S2NEXT L:SOURD 1,6, 
729 GRAPHILS W:% "yOi) LOST: ..." 
F24 % 3% "YOUR SCORE HAS "55 


rad 7 “OU HILL BE DISMISSED FROM THE 
F5 FEDERATION !...8N0 SHOTI" 
TE 1% IGOTO HSE 


PLOT_R+1-K+1:ORAMTO R#6,K+1:PLOT R.kK 


+2: PLOT F+isk+Zs PLOT R4S,K+£ 

Fo PLOT FtdskK+es PLOT R+6,K+Ss PLOT R+7,Kk 
+2: PLOT F+i,K+3: DRAHTO R+ÉsK+S 

F3 RETURN 

568 COLOR Z:PLOT 6,12: 0RANTO R+S,12:C0L0 
F GiPLOT 6,12: DRANTC 159.,122F0R L=i T0 Z 


35 STEP 36: SOUND 11H15: NEXT L 
&16 IF Kè=S AND K<=ii THEN 926 
326 SOUND 1:69 28 20 
£s RETURH 

548 COLOR 2Z:PLOT 6432: DRANTO R+5,232: COLO 
FE &G:FLOT 6,32: DRANTO 159,32: FOR L=5SS Tü 
Î STEF -56:SOUND i,L,:102152NEXT EL 
ES IF E5=ZS9 AND K£=Si THEN SG 
568 SOUND 1 20 209 2 
FE RETURH 

5338 COLOR Z:PLOT 6,52: DRANTO R+5,52: COHÛ 
F &:PLOT 6,52: DEANTO 155,525: F0R L=iSS TG 
355 STEP 36: SOUND 1,L,19,15:NEXT L 
S9& IF Ki-dS AND K£=Si THEN 926 

364 SOUND 1259 289 #3 
Gif RETURN 

ch RE EXPLOUSIONI 
POF =POKE F64,255 
34ÿ FOR N=i TO ig 

58 = RD 6 KR 12 3-55 = RNDX 9 3 12-5 
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966 COLOR INTERNE GES +1 
3578 PLOT R+3,K+3:DRANTO RH3,K+H: SOUND 1, 


END GG, 1ZGSISENEET H 

3549 LOLOR à 

335 FOR L=h-r TO R+F:PLOT L 
sE+rs NEXT Le G S=S+E: SGUND 1,6, 
ibn E=d 

iäig NEXT OÙ 

1926 FÜR G=i TO 3:FOR Ji le 295 STEP d: 
SOUNDS jods1GeiSiNEZT JiNEXT G 

1958 SOUND 109% 28 

844 GRAPHICS Bi 2% 3% “OU DID IT ii" 


1856 % 27 "YOU KILLED EUERT SINGLE ALIEN 
BONE | 


CE *DRAHTO L 


1868 7 37% “YOU USED ";:Kkkz;° SHOTS OF ‘TOUR 
ANA" 


“THAT GIVES OU À SCORE OF "55 
F 27 "ANDTHER GAME "5:TRAP 18353 INP 


HS 1214:="7" THEN RUN 


POST 27 THANKS FOR THE GAME! "7 


TRAP ‘EM 


Dans cet amusant jeu à un ou deux joueurs, vous devez abattre votre 
adversaire. Ceci est soit au moyen des deux Joysticks avec lesquels vous 
tentez de faire ‘’crasher” votre adversaire. 


Celui qui y arrive dix fois a gagné. 


On a la possibilité de jouer avec deux tailles différentes de briques, petites 
ou grandes. L'ordinateur vous demandera l'option choisie en début de 
partie: vous aurez à répondre ‘”L’’ pour grandes ou ”S'’ pour petites. 


Il y a également une possibilité de jeu contre l'ordinateur Arnold. L'ATARI 
joue bien, mais il est assez facile de le battre avec les petites briques. 


Jouer contre lui avec l'option ”L’’ présente par contre l'intérêt d'une vraie 
compétition. 
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lé BEM &Y Trap'em Hritier Et 

c4 REF #X Paul Eur , FEË 

3h REF : RCA OR RER RE RER RE RARE 

4& DIM ASC 15 2,886 19 2, SL$CE 3 

20 GRAPHILS &:SETCOLOR #32: SETCOLOR 2: 
CT "MAT IS PLAYER 1'S NAME “;:: INPUT 


Fu 
68 ? "Où vOU HISH TO PLAT ASAINST THE 
COMPUTER “5: INPUT B$:IF Efii,ie"" 

THEH CfIP=1 

F4 + SIF NOT CMP THEN 7 "OK, PLATER Z'S 
NAME "5: INPUT Ef:GOTO 36 

59 % "OK » TOUR GOING TO PLAT ARNOLO.":B 

#="ARNOLEO" 

38 OF 25 THANK Trou." 

166 + “O0 OU HISH TO PLAT HITH SMALL OR 


LHRSE BLICKS "3: INPUT SL# 
FOI ST CHIT THE RED EUTTON T£ CONTI 


re 
ren 
L 


IF STRIiGi Biz] AND STRIGSSi:=1 THEN 12 


ÎF SLEF lriietL" THEN GRMPHILS 14:K1= 
2H KT Tea 
IF SL#.1,112="5" THEN GRAPHICS Zi:x1i= 


DE CT CRE 2 
Ei=iiF3=):EZ=-WiES=4:Ed=WiFi=U:FE=01F 


COLOR 
LF SL$( 1, i:="L" THE PLÛT #, 2: DRANTO 
ess DRANTO 26223: CRANTO 22: ODRANTO Ze 


189 IF SLSC1,12="5" THEN PLOT 2,2: DRANTO 
7822: DRANTO 76:46: DRANTO 2,46: DRAUTO 2, 
194 COLOR 1:PLOT &lsri 
2@@ COLOR Z:PLOT Xx2,v2 
219 S1=STICKE 9 3: S2=STICKE 1 5 

28 IF S1=15 THEN 32% 
236 SUUND 4:90,10,8 
246 IF 51=7 OR 5126 OR 5129 THEN El=1:50 
T0 ZÈE 
Sig El=ÿ 
2E4 iF 31=5 OR 51=13 OR 31=9 THEN E2=1:6 
OTO 288 
2rà E=ÿ 
226 IF 31=9 OR 31=11 OR 31=19 THEN E3=1: 
GOTO HE 


A” [NA] 
= 


Lu pes bete pr a) pos EN pe 


| Ci HE CN Mi sis! 


+ + 
LR ET RS 


Fo 
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LORS 
et IE 
LE ce PE 1 


be 177 


MF THEN 


UND Dsi2trifegs ll : 


l5 DR Si=id OR 51-56 THEN Ed=i: 


32=15 AND NOT C 


Si 


334 IF HAUT CMP THEN 455 

dE IF FHDE 646, Si THEH R=INTE RNDE GE + 
25II=iSIF R=i THEN LOCATE K2+1,v72,45IF J 
=6 THER FisisFasbi Ps EE Famet 

239 IF II AD R=ëz THEN LOCATE KE r2+i,Ji 
IF ei THEN Fi=@:F£=i: Fab: Fd=b 

25 IF il AWD R=Z THEN LOCATE 2-1, 724: 
IF J=f THEH Fi=f: SE Fais Fé=f 

DFE Lr ii HD Reg THEN LOLATE sarl jt 
IF EG THEH Fi: Fifi Fab: Fi 

356 IF Fi THEN LOCATE K2-i, 7S8,K35 IF K=8 
THEN Si 

234 IF Fizi THEN LOCATE #£tisre,KIIF K=ÿ 
THEH Si 

do Ir FEzi THEN LOLATE #2, v2+1,K11IF K=à 
THEH Si 

din ÎF Fd=i EN LOCHTE &£sv2-1,K51F K=4 
THEH Si 

SE Liz: St SEE 

SE IF SEZF OR S2=6 OR 52=5 THEN Fi=i:5i 
T0 45 

dt Pis 

STE IF S22S Dh SE=IiS DR SE=3 THEN FE=i:5 

OCTO FE 

ER Fi 

SFA IF 5225 DR SEs=il OR 52=18 THEN F3=i: 
GOTO 4 

54 F3 

+36 IF SE OR SE=id OR 52=6 THEH Fd=i: 
BOTO Six 

598 Fi 

219 SOUND 5,6,8,9 

ac IF El=i THEN Ki=Ki+i 

258 IF EË=i THEN ri=vi+i 

cd IF EZS=i THEH Ki=ki-i 

254 ÎF Ed=i THEN LE Î 

GER IF Fizi THEN AZ=xE +] 

gra IF F£zi THEH anne 

SE IF FE=i THEN A£zxe-i 

539 IF Fdsi THEN v£= TE 

EGA REN #Y CHECK IF CRASH ## 


pt 


CR 


Fi 
ii 


M on cu ou 
Ch EL 
QT in e 


: d 
a CE Si 


Fi =] 


pus TS 7 Qc QT: 
COQ re 
ii El 


CN # de) 


D EU ShRse 


_ nt) T4 
1 Fi 1 74 


C0 
St co Qu + —J 4 


To 0 cu 
Ci + 


æ 


D + 


LÜOCATE Xlsririi 

LOCATE K£svV2CE 

IF Lii:g OR LES 41 THEH 558 

SOTO 136 

FÜR Bd TO SBSFÛR 5=64 TO 59 STEP 6 
IF Cish THEN COLOR HIPLOT Kkisi 
IF LES: THEN COLOR HiIPLOT K2,v2 
SOUND G,6,i8,i6 

HEXT GINEXT H 

GRAPHICS W: SOUND 6,4,8,84 


F " ";33:SETCOLOR core EEE dr32E 
IF c1450 AND CES THEN Ÿ Hf:" AND " 
5 50T0 Fr 

ÎIF CES: THEN Ÿ B#$;:5SLi=50i+i 

IF C1<5:4 THEH - H#::SCE=SCZ+i 

RER &# SOROMNE has Crasbmed EE 

+ " EITES THE OUST.":G0OTO F4 

 ° BÎTE THE OUST.":SCI=SCi+i:SC2=S0 
ON SCOPRES :-" 

+ H#:5"s";SCi;" sb" "asSCs 


. _. 14 Dh ZZ2=i4 THEN 55% 
IF SC 1 >=8C245 THEN % H$:5"'2 HINNING 
PTIFIGOTO SFA 


34 17 SC2:=SCi1+S THEN Ÿ 8$:5°"°5 HIHNING 


FÉR LIIVIGOTO EFE 


558 IF SCi= SC2 THEN_T "IT'S 4 DRAH AT TH 


EM 


ca Pr QC Da] 
ff CO 
Lim cri 
us RE 
"+4 Corn 
he 
Dir 


gai 
i 

ai 
T'5 
azE 
330 
a4& 
=à 


OMENT...":G0T0 &7& 
THERE'S NOT MUCH IN IT..." 
TU ii 


1 01 EX] 
De] 


 1FÛR Bei TD 233 STEF SET 
,1GENEXT GIFOR G=555 TO & STEP 
ee NEAT G:'SOUND à,0,0 0 
CIFSCE THEN T #5" MINS THE GAME 
ÉDNGRAT ULAT LUN “:H$:GÛTO 324 
IF SCZÈSCI THEN T E$;" WINS THE GAME 


ai | 


OM FÉONSRATULAT LONS “:B$:50T0 924 


F "HELL DONE : BOTH OF vou... MST MI 
Ë DEHH Dit" 


EHD 

REF #ABNOLD'5 PATH IS BLOCKEUX 

IF Fi=i THEN LOCATE x£fsrre-isbisir Li 
THEN FdsiiFs=GiF2=giFi1=6: GOT 5i 
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Cr 
cf 
Ge 


F Fi=i THEN F£si:Fi=@sFs=@iF4=û@: GOÛT 


TT 


THEN LOCATE 2-1 2 722 LRO 
A Li=4 THEN F4=iF3=1:F2=f6 


TR 
+ + it 


be LE pet (Si 
Tes ve TI 
+ Ti 
AM lu 
16 il 
ch + 


tu 
K JT 
COR FRE A Le | 


EX Se 
Fi 
La 


{ 
mn 
su 


3=1 THEN LOCATE K2,v2-1,L15IF Li 
=il: Fi FE: Fi=ü: GOÜTO 516 


IF F2=i THEN F2=i:F1=6:F3=û:F4=0: GOT 
1664 IF F=i THEN LOCATE K2+1,v22L12IF L 
i=6 THEN Fd=fi Fi: Frs Fi=is GOT Si 

919 IF Fd=i THEN F2=8:Fi=0:F3=1:F4=0: 60 


Testeur de réflexes 


Ce petit programme utilise un petit sous-programme en langage machine 
pour chronométrer le temps qu'il faut pour appuyer sur la barre d'espace. 


Le plus mauvais score est: 65535. 


Pour joueur : taper RUN et, dès que vous verrez un point orange apparaître 
à l'écran, appuyez sur la barre d'espace. 


C'est évident ? Alors essayez de décrocher un temps inférieur à 16,940 !11! 


14 REM £XE REACTION TIMER 

24 RE HEITTEN FEE 1382 

35 REIN #££ BV PAUL EUNN. AK 

48 FÜR L=û TO 37:READ AIPOKE 152541, A1NE 
sä Énre 194,17232292 2 224 » 201 2332402101 
Édrdo 128» 181382101720 re rc Bla 

5à DATA 244, 15239,212, 208 » 245 »230 21352 
Bose cdi 21642200 Z 

F8 DATA 13: 

EG GRAPHICS 6 

38 ? "TO PLAY : HHEN vOU SEE à ORANGE 3P 
OT IN THE MIDDLE OF THE SCREEN ; PRESS" 
198,7 THE SPACE EAR AS QUICKLY 45 YOU C 
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OPEN #1,4,0,"k 
7 READY 7 7 7" 
SET #1eR5 IF A ASC "y" THEN 134 


À 
Er nt 


BRAPHICS 13: COLOR 1 
FÜR Lei TO INTERNE 6 1 Gé Bi NET 


CT 


Ti En He du) Pt pu 


Cr Lo TI u L 
ét ui ss CEE 


#18 24,12:POKE 212,89:POKE 213,9: #=1) 


SGRHPHILS 95% 3% SCORE à "54 

IF #=6553S THEN %Ÿ "DID OI CHEAT 7": 
0 268 

IF #<3284 THEN _* "HBERE DID YOU GET 
 LIGHTNING FAST REACTION F":G0OTO 26% 
4 “15568 THEN 7 "EXCELLENT. ":60TD 


éa 15090 THEN * “UERY GO0D INDEED. 

3694 THEN * “NOT BAD.'":G0TD 26 
Ste3688 THEH 7% “PATHETICI":GO0TO 2 
ATHAT HAS TERRIBLETIE ess ; 

FT 2% ANOTHER TRr % chi 

GET #1,HSIF H=HSCE "y" THEN 154 

SCC'N" 3 THEN EF 
T INEXT DT 


* La 


LA] mL Lo 


LR] 
NAT] 5 ES 


Tips 


Fo 


pat spas Pope Cf ie pe es 


DNS LL 
D'ou 1 


fe 
A 


—) Qi in 
OU E 


ù pas Po pus Tipus 


" 1 Fo 
U4 cé 


221 

TI 

_ L 
17 
pal 


“ 5000 BYE 


CE Lw [a] 
T 
LT mn 
ZT) 
Les 
Il 


REVERSI 


Le REVERSI a été inventé en 1888 et est joué sur un damier standard avec 
des pièces double-face : blanches d'un côté et noires de l'autre. 


Dans son splendide livre Découvrez les vieux jeux de table” (Shire Publi- 
cation Ltd, 1980), R.C. Bell explique que les noires commencent la partie 
en plaçant une pièce, face noire en haut dans une des quatres cases 
centrales. 


Les blancs répliquent une première pièce blanche sur une autre case 
centrale. 
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LA 
DA 


Mi CU d 
Ïl 
£ 
CT 


Tü 1W:FOR C=1 TO 16 
1 AND C'o1 AND ES518 AND C£16 


1Æs ce 


SE AT E 

54 HSE 9 = AS 6 = 

FasR 

F4 GRAPHILS FiIPOKE 792,1: SETCOLOR 412,2 

: SETCOLOR 2,122: SETCOLOR 11e: SETCOLO 

8 D, Y20PEN #48" Kki" 

8@ POSITION Z,i1s2POKE Foz,is? “Houig you 
Ike Lo go First CteNi TS 


GET #14: 1F FA 368 AND AS 37e THEN 96 


LEA] 
ral 
[en 
DR 
Œ 
| 
Cr Ju 
+ 
Lu] 


IF RES THEH 356 
33: H=4 
T5 3: 


En Eu 


‘Il 
—] 
it 


he bee hs pr Leu] 
Se " 


LM Ne Here) Pattes Er -È e 
1 NH SSSS, 
bd 
IL 46 


FOR E=2 TO 3:IF AKHBX 


eu UT 


min 
RU 
mn 
NA] Ci 


C=-i T0 L1FOR O=-1 TD 1:K=6: 


ti Le 
m6 & 
er 
Ti 
Cu 


1 Lt: 
het ITU TT A 


LE 
| 


F AC F+C 2 5+D0 75 THEN ir 
L=k+isF=F+C: G=6G+0: GOTO 15€ 
IF HF+C G+OET THEN 135 


mi 
F FE à 
“= 


: OF E=9 THEN GEGÉZ 
OR B=S THEN G=i-2 
OF A=E THEN GEb-Z 
2 OR H=3;: AND <B=5 OR B=52 THE 


F_(A=3 DR A=8) AND B=2 OR B=9: THE 


D 
E 
E OR 4=S3 THEN He 


Er Er 
rs 
or Eu 
Il Il 
© Mes tres 
"1 te 
fo 


—.] 


cd NE ! 
Le 


OP G=6 OR € RND< 4 :29.3 AND GEH 


Ti 


IF H=ë OHO R=4 THEN Bin 

4 ÎF H=G THER 348 

5 GÜSUB 54 

GOSUE 44h 

i FO hat 13 Your move center Hi if 4 
Can Mot gi ; 


a 
à MEXT À 
5 
g 


CARNET 


JA) 


FÈ8 S=ss: T=rs 

2684 TDF 374: INPUT ESTENF gen 

286 IF Az THEN 426 

338 IF R£ii OR RSS OR REINTCRS THEN 35 
re] 

dB PSIHTERS IS LI N=R-IGÉINTÉR/18 +1 
di GOSUE 545 

24 GSOSUE ddÿ 

434 GOTO 176 

Fan REM # # # # OFOH BORD & # 

456 COLOR 1:FOF E=dé TO 116 STEF SiPLOT 
ME me its Libé: PLOT 89: ORANTO 
den FÜR #=2 TO 3:FÜÛR ë 10 3 

4F& IF ARS AE THEN GOSUE ESG 

din HEXT TIHEXT # 

438 351=4:52=5S1:FOR #=2 TO 9: FOR v=E TO 3 
IF HCXomi=79 THEN S1=51+1 

S6ÿ IF er THEN 52=52+1 

214 NEXT TINEËT : 

re. 1 "SCÛRES = ME ‘“:32;" OU 
534 RETURH 


24 FÜR C=-i TO 1:FO0R DO=-1 TO 1:F=FM: G=N 
SoË IF HF+CGHORES THEN SF 

268 F=F+Ci:5=6+0: GÛTO 558 
Sr IF HF+C OO ÈT THEN GE 

268 APF2522TIIF EF END N=5 THEN 65568 
S98 F=F-CiG=G-0D:GOTO SE 

A HEXT D:NEXT C: RETURN 

IF S2Si THEN Ÿ "I HON “:s52;"-6;ci 
IF Ses THEN © “YOÙ HON ":51;5"-":52 
IF Si=52 THEH ñ "IT'S à OFAH° 
ni END 
S COLOR EME nr 22 PS RICE 2 7 ESS IE 
4 Pac C1 ÈS His Q=c cri 19 à 

5 PLOT P-i,0-diPLOT P,5—4 
GS PLOT P-Z,C-S:ORANTE P+1i, 0-3 

36 PLOT P-3,0-Z2'ODRSNTO P+5,0-2 
AA PLOT F-d,0+is: ORANTO F+5,0-i 

Fig PLOT P-4,0:ODRANTO P+3,0 
ren PLOT PF-5, 0+1:DRANTO P+2, 041 

F39 PLÜT P-2,0+2:DRANTO P+1,0+2 
F4 PLOT F-i,0H3:PLOT F,0H5 

r59 RETURH 


Et 


Do 
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Analyse des ventes 


Ce programme de gestion simplifié a été conçu pour les commerçants, afin 
qu'ils puissent suivre l'évolution des ventes d'un produit particulier. Le 


programme peut être utilisé jusqu'à 8 produits ou services. 


Vous entrez le chiffre des ventes pour chaque mois et chaque produit ou 


service : la quantité ne doit pas dépasser 84. 


Après avoir entré ces données, vous pourrez les vérifier sur l'écran, de 
facon à pouvoir éventuellement les corriger ou les modifier. Les données 
seront alors affichées graphiquement, sous forme d'une courbe. La ligne 


rouge indique la moyenne. 
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14 EM 5 ANALTSIS #E 

26 _6RR OSITION 11,817 "SALES AA 
38 POSITION 17-137 “6° 

4& POSITION 16,25:% “PAUL EUNH IH 1952" 
58 DIM bi 124k9 9, T6 152,06 12 3M#61" in 
FiiBé ot" iffe relié 

5ÿ FOR M4 TO 11: Far Te FC MES TE 


ere 


d=TSs Ci Fi+1 II HEXT ! 
7 CAT JANUARY 27 FEBURRY 7 MERCH. 9:HPRI 
Loos Ar 8 3 8 JUNE 2 ds AULY 9 4 9 AUGUST 2 6 2 SEFTEME 
EF » 3 > OCTOBER » r 2» NOUEMBER 23 

56 DATA DECEMEBER,E 

38 OPEN #loeds@e "Es" 

ie be rEd, 66 

Li IF IT “Press RETURN‘ when ready," 
— GET #1-H5 IF HSHISS THEN ii 

(ae n “Ho HN MAN GOUdS SEVILES 
3: TFAP ne INPUT ISTRAF 4h 


# INTK F7 DR ER DR 1:35 THEN © " 
LE . 14 


kiss GS io" iSS$C SKI =" 


ll 


ee 


5"=" 3: TENP iSÿ: INPUT THIT 
GE SANTE Fi mtiaet Pi 11514 TE 
Hi F 


FOIE ir Thahk ou, 


226 DIF SHLESS 12,1 2,FRS STE 2 

ES F 37 ‘Press Vote Lo continue, * 
2464 GET #HiHSIF ASHISS THEN EG 

254 FÜR S=1 TO I:7 \y5ales an419313 Of 
GS Si #iStiost S-1#ig+is: 
EG TFAPF Ebgsr “Input iast Jears 3Sv3r 239€ 

£ center hi it hot khori5%;s INPUT 

er FOR ei Tü iz 

5 À "3 Éléie Lei 6-1 9 à 

[ee si FOR P=i TO GEMast M ON:sNEZT 


Pi pri r 
Ü 


F4 REN KE Analyse 3a1les ## 
in * "Sales analysis of "GS Si Fi 
si 3 LI L4+15 2 


tal CUS RES an 


n TRNP 328:% 3% "TOTAL SALES :"3: INPUT 
Pi SALES MS PF 
26 IF Fräd THEN T "MA&SINUM NO. OF SALES 
IS S4i":GOTO 328 
TRAF 45 
. MINEXT © 
‘é sie ViSales 3n41435:35 Complete, “ 
4 “HoUId got like to Check “;::TRU 
INPUT TH: IF T#ii,iï="n" THEN Sü@ 

4 Fizi TO Is "SSsFOR FZ=i TG iZ 


dE 2j" D" MSC € P2—1 DK 1 2€ P2—1 HI), 
SALES=" 5 SALES PE FI 5 


498 HEXT P2 

4i9 TRAP 43ÿ:7 "fiter anything éenter hU 
mber 3" 32 INPUT TITRHF dada 

+29 ÎF T4 AND T£13 THEN GO0TD 45 

ds HEAT F1 

+4 GÜTOD SA 

458 7 “Enter new sales for ":M#CCT-13#9+ 
PL T-i 1#9+9 35 

469 TRHP 45ÿ: INPUT HIIF H<ÿ OR HS THEN 
+ Between ji and Sdi"sGOTO dE 

dr TRËP 45588 

Ac SALES T,PFi EH 

+36 5SÜT5 4it 


Cl Cu) 
& 


1] Us Le) 
* cs D 


! 
Ü 
(EX | A Sr vd ) 
S CL] 


Se 


Son sr sr " Now to ee 9ra3pPhs,. " 

16 GOTO 1476 

328 REÏ &KOURAH GRAPH SUBROUTINEXK 

938 RESTORE 2FOR H=1 TO Z4SREHD TFSNEXT 
h 

3H 


COLOR 1:PLOT 5,6: DRANTO 5,83: DRANTD 
159,83 
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55ÿ FOR K=78 TD 4 STEP 4 

Se@ PLOT Z,K:DRANTO 4,K2NEXT E 

Sré FOR K=13 T0 153 STEP 13:PLOT K,54:DR 

ANTO ESSE 

358 FOR LisSs TD Si FÜR I2=-5 TO 3 
A READ ASIF H=1 THEH PLÜT E+1£,11 

Qi HEAT IZ:MNEXT Ii 

14 HEËT E 

24 DATA Ge%edele0 à 

A DATA Ge69 6 s À 2 68 7 6 2 

4 DATA GoDodrlr@e si 

24 DATA G,6 262 1 2 69 89 À 

56 DAT 4,59 »0 » 1 29 9249 

A DATA 1,4,6 1 9 69 49 € 

DATE Doisis9 09 020 

694 DATA lslsirlslsit 

F9 DATA 124 209 989 909 9 9 2 

#18 DATA 1,0,6 26 2 © 9 69 € 

FER DATA 129 20 99 99 2 9 0 

F24 DATA joli 0 

FH DATA 1,9 20 209 29 9 » 

Foû DATA 1,0: 0,6 05 696 

F6 DATA Lolo odrlri 

Fr4 DATA loGrlo@ol ri 

F5 OATA 1e0o@rlododoi 

DATA 1262 6 1r@o Gi 

DATA 1,405 209 9 0 29 » À 

DATA 1,6 619 € 9 1 9 © 5 À 

DATA À 969 909 919 2 79 » À 

DATA &,6,84, 1,6, 0, 0 

CATA Dee 1 09 » 1 » 4» 

DATA Gr 1 2 6 9 © 9 © 9 1 > & 

868 OATA Bololoirirird 

ETE DATA G,1 619 6 9 69 À 2 € 


' 
J 


cit 
où 
Lot] 


oo 


gp ce mire 
% Lx 
CLR LS 


D 
[. Ne, 
& 


5344 DATA DrisDsr0 or ir 
830 DATA Gl:0r4 96 124 
3989 OATA 1,129 28o@risi 
916 DATA 1,810 1r@r1 
3269 DATA 16120 
936 DATA 1,660 12461 
346 DATH lobe door 
SSA DATA 1 2 6 2 6 9 © 9 © 9 Gr À 
366 DATA 1 29 209 29 90 20 » À 
376 DATE 6,6,6, 1,846 6 


558 DATA 
396 DATA 
1668 DATA 
1816 DATA 
1626 DATA 
1834 DATA 
1449 DATH 
1854 DATA 
1864 DATH 
1874 DATA 
1454 DATA 
189 DATA 
1146 DATA 
1116 DATA 
1126 DATA 
1136 DATA 
1144 DATA 
1156 DATA 
1158 DATA 
1176 DATA 
1138 DATA 
1194 DATA 
1266 DATH 
1216 DATH 
i226 DATA 
1234 DATH 
i248 DATA 
1256 DATA 
264 DATA 
i2F@ DATH 
1294 DATA 
1294 DATH 
1346 DATA 
1318 DATA 
13286 DATA 
1324 DATA 
1348 CGATH 
1258 DATH 
i364 DATA 
1566 DATA 
1384 DHTH 
1394 DATA 
i464 DATA 
1416 DATA 


Grdrd sir 20 2 
CACASPS EAP 
G 20 20 » 1 29 » 09 20 
CAP PA A 
Lrbr%ris0 0 20 
Gorlrlrbrtr Gr 
D r0 20» 120 9 29 
CRC C A 
Drbrbrir0 0» 
CAPI: PS 1-71: 
D r0 01102020 
PCA PA A: 
Drlirir0r0 0 20 
CLP ETS 
DrOr1r0rlr0 30 
Gr1r@ 0362138 
Driririririrt 
Grlr05 6365 136 
CAC APE 
Gr1r0r06 265 1 26 
Grlrliriririrt 
1 2 6» 6 9 6 2 À 9 À 2 € 
À 20 29 209 » 9 2 2 
Grlririririr 
CAP AC PS 
Grliririririrt 
GrGrlririr6rE 
DrlrDod oeil 
1606076961 
ELA EEE PS! 
ELA APS 
Hrlr0rd rs 128 
GrGriririr 6 
i 8 10 D r0 ri 
dsl 2 6 0 À 9 6 9 6 9 À 
Lobrlododrri 
loool @rGsi 
LobrrDolrdri 
leoGsrG GE ri 
Le 20 9 9» À 


ler 20 0 0 20 
16101062 
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1425 DATA 1,5,0,8,1,5,05 
1458 DATA 1,6,6,0,1,8,6 
1448 DATA 1,5,9, 1:08 20 
1456 DATA 1,1,1,6,0,6,64 
1456 RETURN 

i4rg REM $* DRAH GRHPHS XX 


iagf 7 ‘sales on y-axis" 

1494 + ‘Months On x-a3xis" 

ISGG + 17 Mred lire ihdicates avaraue." 
1519 FOR 5=4 TD I-1:% "Graph for 3431835 9 
Ÿ "SSH GRIS s+i ,G#1 o+id: 

IS Tir ‘resay TE" 

1536 GET #1.4:1IF Fi HASCE “US 1 THEN 1555 


154 GRHPHICS 7418: SETÉOLUR 309 0: SETCOL 


DR 4,228: GUSUE 324 
1554 SETCOLOR 1,7,4:COLOR 2: SETCOLOR 2,3 
24 
SES PLÜT 6294—PRSNTE G+1 
Sr4 FOR K=i3 TO 15€ STEF 13 
1556 OR cuirs K54-SALES K/13,6+1 2 


SSë NET E 
Lt T=ÿ: FOR H=i TD 12: T=T+SAESCH,5+1 2: 
NET Hs AURGEZ=T- IE 
614 COLOR 3:PLÜOT 6, 34-RURGE : :DRANTO 199: 
Ed-HURGE 
2ÈEN GET #l-H51r H:153 THEN 1544 
1e: NEXT G 
Ed GéRPHICS 9:57 “Analysis Complete ME 
HO 


Jeu de quarante-neuf 


Ce jeu est analogue au jeu de Dames, sauf qu'il se joue sur un damier de 7 
x 7 (au lieu de 8 x 8). Les pièces se déplacent comme des pièces de 
Dames, en diagonale par carreau, sautant le pion adverse pour une capture, 
à condition de tomber dans une case vide. 


La principale différence avec les Dames est que les pions peuvent avancer 


ou reculer. || n'y a pas de Dame”, chaque pion se comportant comme tel, 
et les sauts multiples sont interdits. 
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L'ordinateur joue avec les ”’X"' vers le bas de l'écran, et vous êtes les "O”’. 
Vous vous déplacez en entrant les coordonnées de la case point de départ 
(en entrant tout d'abord le numéro de ligne à votre main droite, puis le 


numéro de colonne indiqué en haut, puis en frappant RETURN), puis les 
coordonnées de la case arrivée. 


L'ordinateur suit le score, vous informe (avant de bouger) de son prochain 


coup, et met fin au jeu aussitôt que l'un des joueurs a réussi: à capturer 5 
pions adverses. 


Le programme est structuré: la ligne 3@ envoie la main à un sous- 
programme (situé en fin de programme principal) qui initialise les variables. 
L'ordinateur commence alors à jouer en 7000. Après avoir joué un coup, il 
retourne au début du progrmme, et de là au sous-programme situé en 
8000 pour l'affichage sur écran. Puis il va en 6000 enregistrer le coup du 


joueur, en 8990 de nouveau pour modifier l'écran, en 7000 pour la réponse 
de l'ordinateur, etc... 


L'avantage de travailler ainsi — avec un sous-programme spécifique à 
chaque phase du jeu — est que vous pouvez facilement modifier une partie 
du programme qui ne vous paraîtrait pas satisfaisante, sans vous ‘perdre ”. 


Placer la définition des variables à la fin présente l'intérêt de pouvoir aisé- 


ment en ajouter de nouvelles, si vous en ressentez le besoin, sans problème 
particulier. 


4 BEF FORTTrT-HINER € TEr CHELKRERS 1: 
CH RE! HARTHELL i9EE 

34 ET Er GY:REM IHITIALISE 

44 GOSUE FAMG:REM COMPUTER MOULES 

59 GOSUE S964:REM PRINT BOARD 

ra GÜSUE GAat:REM ACCEFT FLAYER MOULE 

95 GOSUE S699:REM PRINT BOARD 

1AHA GÜTO dA 

699 PRINT 

E4SE PRINT "FROM"; 

EDEN INPUT M 

GAFFE PRINT "TO"; 

938 INPUT H 

E49Ë HN 126 

64935 IF ABSM-NI=22 OR ABSMI-N=13 THEN 
HEC LE dE 

Dr IF QBSMI-NIEEZ OF ABSM-N:=13 THEN 
ME=ME+: 

Si Hifide 
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6994 RETURH 
“998 REM COMPUTER MQUES 
FRi@ FOF A=FE TO 12 STEF -i 
26 IF HA: 111 THEN rO6ÿ 
FA3G FOR E=i TO à 
'H32 IF A<ES AND B<3 THEN 7958 
3 IF 4264 AND E>Z THEN 786n 
N35 Q=2k2 Bb) 


TE 


764 NEXT À 

7885 G0TO 7349 

rG7@ HCAHZLE à 74€ 

raSD H{A)=45 

7a9@ HCAHG =111 

FA92 v=h+0 

7G9Z X=A 

F49S IT=IT+1 

7188 RETURN 

"299 HEXT A 

308 REM RANDOM MOQUE 
F319 v=9 

324 v=v+1 

7334 K=INT(RNDX 1 ::66:+12 
7244 IF HCK 
r364 FOR T=1 TO 4 

F3TA IF HCK#+ZT)3=45 THEN 7499 
7384 NEXT T 


F3389 IF £Fÿ THEN 7318 
F395 GOTO 46 


HÉKH+ET 3=111 

HCK 46 

AK V=EHET © 

RETURH 

PRIHT "I CONCEDE" 

r4r4 END 

7334 RETURN 

569ÿ RE CLEAR 3SCREEN 

6816 PRINT 

3815 PRINT "I MOUED FROM ";x5" TD 
Sg1r PRIHT 

ee PRIHT "SCORES: YOU: ";ME;" 


] F J ps. N 
ÉD 2 2 à 


Ti 
er mon RS 


111 AND T<iG4 THEH F326 


LL 57 
ME: 


D IF HA+ZB)=128 AND HA#HI=45 THEN 


Sad PRINT :PRINT :PRIAT 

8456 PRINT ," 1234567" 

5955 PRINT 2 HAE" 

GG6G FOR 7h TO 14 STEP -1@ 

SD CD HEHK J+1 35 BH J+2 55 CH +3 25 D=Hé J#4 5 
S E=HC HS DE F=HC HE 25 GEHE +7 à 

5999 PRINT _ ,J-19 3 "#";CHR$K A 2; CHERS B 2: CHR 
ND NC SON ESCRNSE FES 
5J-16 

8498 NEXT J 

5146 PRINT 2 "HA" 

8116 PRINT ," 12345€7" 

3129 IF IT=5 OR ME=S THEN 3149 

5124 FRETURH 

5149 IF IT=35 THEN PRINT "I HINI" 

615€ IF ME=S THEN PRINT “YOU WIN!" 

5993 END 

3969 REM INITIALISE 

G IT=4:ME=A 

3429 DIN K 333,24 45 

SAze FOR A=1 TO 99 

3449 HA 2=5 


SOSO IF AFF OR A=FS OR A=5B ON 

R=z6S OR ÀR=69 OR ÀA=S5@ OR R=SQ OR 

Az=SS OR A=406 OR A=49 OR A=48 THE 
HN GOTO 9096 

S6SS IF ÀA=36 OR A=SE OR A=39 OR 

R-=28 OR A=28 OR R=29 OR A<11 THE 


3968 HCA3=46:REN . 

3476 IF H=F2 OR A=ré4 OR ÀA=F6 OR A-61 OR 
H=6SZ OR A=6S OF HET THEN Hi 

38S@ IF A=21 OR ÀA=25 OR ÀA=25 OR H=27 DR 
A4=12 OF A=i4 OF A=ÏE THEN HAE IZG:REN x 
9496 NEXT À 

3199 FOR À=1 TO 4:READ B:ZÆHÏB:NEXT À 
911@ DATA -11,-9,11,9 


3266 RETURN 
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GANYMÉDE 1V 


Ce jeu, du genre de la CHASSE AUX WUMPUS”, vous entraîne dans un 
dédale de tunnels sur Ganymède 1V, où — si vous arrivez à survivre 25 
minutes — vous serez secouru. Vous rencontrerez aussi bien des bêtes 
immondes que des pierres précieuses, et autres amusements dont il vous 
faudra bien tenir compte si vous tenez à votre peau !... Les bêtes essaieront 
bien sûr de vous tuer (de manière fort désagréable), les sables mouvants 
sont fatals, et les pierres précieuses vous rendront riche (si vous survi- 
vez!), mais les pièges spaciaux-temporels sont les plus traîtres: Entrez 
dans une caverne en renfermant un, et vous serez instantanément trans- 
porté dans un autre souterrain du système. 


De temps en temps, votre ATARI vous donnera une image complète des 
souterrains, vue d'en-haut. 


Une fois que vous posséderez bien la structure de ce programme, vous 
pourrez le modifier à volonté, plaçant les créatures de votre choix dans les 
souterrains. || y a également de nombreuses possibilités de jouer avec les 
couleurs, le graphisme et le son... 


Le déroulement du jeu est linéaire. Vous partez d'une caverne (‘sector’) 55, 
et vous vous déplacez en haut, en bas, à droite ou à gauche, d'une case à la 
fois. Votre ATARI vous avertira de l'approche d'un événement, mais 
concernant un seul secteur, et non la totalité d'entre eux: 


Il ne vous dira pas non plus lequel des secteurs voisins il est en train de 
décrire ! 


Une caverne est vide une fois que vous l'avez visitée, aussi vous ne pouvez 
retourner dans un souterrain à pierres précieuses où vous vous êtes une 
première fois enrichi! 


Si vous pénétrez dans un souterrain à sables mouvants, où qu'un monstre 
s'occupe de vous, le jeu se termine. C'est la vie! 


FT 


li 


REM 
35 FEM 

44 GRSPHILS GODIN Gi . 32H46 1 
=PEEK£ 56 Fe LOEi Hd: FE 
PORE DL+2 SPORE PS2 li ESS 
5 FÜR k=] "T0 JiSRED Ti se CHR Ti 
Ex _#: DATA Flore S 3 289 5 1845222968 18ls 


Ch 


ARR 
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SE SCI LDLOR ieSsit SET COLOR 2,:9283 SETC0L 
7 ri letnenrEs Hisdrts ts sSE COLOR Wii 
+ si 

ie FOR X=i TO 11:POSITIOUN K+3,457 GX, 
59 FÜR no 9 STEP =1:SOUND 6,Xx#24,8,: 
MINEXT GUsUE IA: NEXT # 

38 GÜTO 14 

ia A=PEEKC 709 ):POKE 7 F3 ,PEEKS r99 3: POKE 


F9, PEERS F1 i 35 POKE 711 he RETURH 

Li © CHRSL 1253: POSITION 4,8:7 G#:RETURN 
126 FOR «21 TD 1684: Hé x 1=d6: te #élz OR #5 

AG THEH Hi i=dr 

134 LH=STR EE ARIDDIF ZH2i=" a" QR ZK2= 
"1" THEH Hiai=dr 

144 GÜSUB i6ÿ: SOUND 6 INTÉRSS UK HET KES 

Gs £: NEXT AS SOUNC À 9 À 9 5 9 

159 FÜR s=1l TO 6:46 INTERNE D #76+123=47 
SAC INTE END 6 #7 6+12 3 6 SHC INTE RNDK GE ÈTE 
+12533=66 

i5ÿ AC INT RND< 6 2K76+12 3 3=81: AC INT RNDE 9: 

*r6+12) 251: GOSUE 1au: SOUND G,x#14/1248: 
MEXT %x: SOUHD 9,0,0,0 

Lr4 FÜR ; mr TO à STEP -S:SOUND 6,K/12% 
15: GOSUE 1GG:NEËXT #2 SOUND CARS 

159 HE = 72: GEINTE RNEK DK 533 IF GW THEN 
GÜSUE ifdf 

134 g=ijiir "you gare if cave number ";E:IF 
G>4 THEN *? "With Ganymede ges worth +" 


266 GOSUB S4bs: 7 5% 357 "YOU mySst sUyrvIvE 
for another 328 H “notre Minutesi"sr 
EE TOITS SE SHhich direction Lo JOU iÿaht 


South, East or jesti 7";::p0 
4 367255 THEN GET #1 ,2: 2820 


EXC ZM nn et ZE= NE" té ZESUE 
=) 


AS FOR #=1 TO SBIHEXT #5 GOT 
2 CE 64,255: IF E$="N" THEN © "N 
GATE 
eb4 IF £F="5" THEN © "SOUTH" 


pa Fr 

R Dir 
Lan 
T 


Z$="E" THEN 7 "EAST" 
289 IF Z$="H" THEN * “HEST" 
296 FÜR #=1S TO 6 STEF -à.4:SOUND &@,E, 18 
rs DÛSUG 1OH:NEXT 
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266 IF ZF='H" AND ME-ifiér THEH Li=i 
314 IF £F="S5" HD ACE+1853=47 THEN U=1 
324 IF Zf="E" AND AE+ii=ér THEN Lei 

336 IF £f="H" SND ME-1:=é#r THEN U=1 

344 IF U=1 THEN T 5% cer tunnel li, 
.."°FOR #28 TO ZIFÛR T=3 TO 28 

256 IF Li=i THEN SOUND CACAC: SOUND 1: 
P+2r 192152 HEXT TIHEST *X:SOUND 6,9,9,ÿ3:50 
UHD 1,466 GOSUE 118: G0T0 1984 


AGE 3=46: EE Z$="E" 1 ZM U" IH Z$="S 
EL OE ZEN JHIGEFSE 


13 | 
“(Ti 
LA] 


J 


F9 IF MPFI=6S THEN GSOSUB 4 

28ù IF HPFIEBE THEN GOSUE Si 

398 IF HPF3eSl THEN GOSUB 65ÿ 

484 IF HFizri THEN GOSUE FE 

ee LG: H=H+1:IF H=ZS THEN à=3: 597$ 
IH 25H 

425 GSÜTO 156 

338 REM * # SPACEHARP CHE # # 

dd GÜSUE 11457 "HASNINGE ou have Just € 
nLered à Cave" 

ds + "ÉONES LS IRS 3 SPACEHARP 1..." 

dER Ÿ 17 " Von are hou going to EE trans 
parte" 

Sr + Log another Cave... STAND BTi" 

45h FÜF de TG 5 STEF UE if 

456 FÜR vT=5ÿ T0 256 STEF 

SE FÜR 7= T0, 33 SOUND 2 V2, 18 Is NEXT 
EsMNEXT TINEST : 

3if FOR Ê=i TO ‘3: S0UND ÉseBsBiNEXT € 
oc6 FOR &=255 TO 6 STEF —-2: SOUND G,%212s 
LS: MNEXT #3 SOUND 9,904 

524 AGE Gi E=INTE RNDIE EF E+ 12 15 RETURN 
sd SEM # BEASTIE CALE # # 

SS4 GOSUE jimsr "HHOOPSI There's à BENST 
IE in herelils 

269 FOR #=1i TO 15:F0R P=ESS TG 54 STEP — 
25: SOUND G,F,1GSISENEZT PF: GOSUE EC HEAT 


_3 SOUND 1 9)» 

F9 FMERND GS IF lKG.2 THEN Ÿ 1% "BUL luc 
FER for YOU , it has Nan “detected J 
our presence": GOT 6d# 

566 * CAHD IT SEES TG iii, d 


NES #=233 TO & STEP —-1:SOUND 4,%,-14% 
ae NE # 


Gang IF M:4.5 THEN F 37 "EUR it decides ñh 

ot to eat you because": 7 MHUMaNs Give hi 
mn indigestion, “:GOTD Éd 

61 % :% "AND HE ERTS YOU..." 

624 FÜR P=i TO 3:% "MUNCH..'";::G5G0SUB 189: 

FOF K=6 TO S:FOR v=i TO S:SOUND UoksGsxs 
HEXT ‘7 

634 HEXT #:NEXT P:SOUND 6,4:,ÿ:4:G50T0 339 

Ed % 217 "HIT ANT KEN':POKE bd, 200 

559 IF FEEKE 642255 THEN GET #1,H4:POKE 
F6, 255: RETURH 

Fee FOR X=1i TD SH:NEXT X:G60SUB 164: 50T0 


6F9 RE # # GUICKSAND CAUE & # 

ESH GOSUE 114:7 "You have entered 4 Cave 
containing" 

599 + "  QUICKSANDITITT IE..." 

P=i TO 35 2 X=INTE RNDK @ xG#+d 15 SOUR 
FRANCE : FOR ‘7= 1 TO SU:NEXT Y:GUSUB 15 
gs 1 NEAT Î F 

eee 356 

Se £ À  SENYMEDE GEMS CAUE # # 
SUB 11857 M OMWell dote , Yo have 

vu sde 


-J 


Et) re 
Zi 


Sangiede Gers Li" 
They are Worth #!"; 
K= TNT< BND à ÉD SUITE Ks" I" 
G=G+ES FOR v=i TO ZG: FE RESTES 


Tü 2 
VK3: SOUND De%210/152NEXT X:5Ü0SUB 159:H 
F:SOUND G,6,6,6 


730 RETURN 

F94 REM * * SECTOR CRUE SCAN # # 

EA4 L=dEs IF HCE-11:<5;d6 THEN L=HME-ii: 
519 IF ME-1H%< 465 THEN LÆKE-iÿ 
S24 IF ACE-93< 46 THEN L=ME-3: 

839 IF AKE-135;45 THEN L=KE-1: 

&du IF HCE+1K2546 THEN L=HE+15 

854 IF KE+33%x 246 THEN L=KE+93)2 

864 IF HE+1Gh<24E6 THEN L=HE+14)5 
579 IF AE+i1:<>d46 THEN L=KE+11 
S66 IF L=46 THEN RETURN 

599 + "Computer reports: 

GABA IF i=$r THEN * "Éilocked tUunmEei *“; 
915 IF L=S55 THEN *Ÿ "Space wap ‘; 

IF L=66 THEN * “Ganumede BEASTIE “>; 
à IF L=31 THEN ? "Quicksand cave "; 


+ p 
F2 DS St 


mœ y ds © 74 
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4@ IF L=71 THEN ? “Ganumede Gems 
359 7 “nearby"i? 17 

SEG RETURN 

3Fr4 REM *# # END OF MISSION * # 

Sa IF GE THEN 144% 

339 % :7 "END OF MISSION - OU ARE DEAD" 

1844 ACEÏï=FLIT 2% "YOU SURUIUED FOR “;H3 
® MINUTES"; 

1816 IF H=25 THEN * " ..HELL DONNE" 

1826 IF HSSES THEH PRINT 

339 % "AND FOUND GENS HORTH $":5 

Hd + 1% "Gahymede sector profile": 

354 FÜR J=ÿ TD 94 STEP 18 

ist) . FES Hi 2e NEC HE 58 CE + 15 PF=fi td à 

5 2=A J+S 2e REC J+6 55 SEA J+7 9: FE +8 3: U=A 
ue ss Dei J+i6 

1974 % CHR IT 2: CHRSEE N :CHRS$É DO à :CHRSE P 2:50 

HRSC2 35 CHRECR 33 CHR8C 8 3 2CHRSC T 2 2CHRE UC 
HRSCUSENEST J 

i8Sÿ FÜR J=i TO 268: SOUND Dodo 18: NEXT 
Ji SOUND Go Eis 6 

1999 IF &<:49 THEN END 

1146 % "HIT START KEY TO CONTINUE" 


lie 232r73,05: IF PEEK(532793%X2>6 THEN 
iië 


1125 GÜSUB 118:RETURN 


Le coureur de labyrinthes.. 


Si vous aimez les labyrinthes, celui-ci vous comblera.. Il fallut à l'auteur 
une semaine pour le dessiner, beaucoup plus longtemps pour le program- 
mer, et on raconte qu'il n’en est pas encore sorti! 


Aussi, si vous venez à le rencontrer au hasard de ce Knossos dément trois 
fois plus grand que l'écran de votre ATARI, aidez-le, s'il vous plaît ! 
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RE # MARZE RUNHER — — — HRITTEN + 
REF # Er PAUL BUNH AND IAN HICOL # 
REMERCIER 
REM 

eu 

à FÜR JSiS3E TO 1536+7:REND C'POKE J,C: 
EXT Ji DIM Gti 

DATA 184,165 220337 sr 1i35 2 25 » 36 
GRAPHICE Si SETCOLOR B:4.,6 

H=PEEKL 566 +256%PEERKC SS51 2: POKE 732,1 
H=PEEK: A+ HZSEXPEEKC +5 

HEH=ES DB: 4= INT H42956 23 VS INT H-KK256 3: 


Ze OT on Fe cu Pre 
ex qe . . 


D 


— 
an 


1) Dion ON dE Le) in 


ea 1 


Ra 
“ri 
ace 
Li CI [T 


He TSPOKE A+Sens IF PEEKCHISSS T 


ed 
de 
bas} 


L “BLEASE HAIT."2:TRNP LG: RESTORE 7 
RERD C 

5 POKE BrC:B=B+1:GSOTO 34 

TRAF dGgnf: RESTORE 114 

BEN #* MAIN LOOP ## 

F "Hould you like arhold Lo try it # 

5 : INPUT GÉ:IF Gé="Y" THEN E=1:7=E 

146 FOR I=H+23519 TO W+25194i 326: STEF E 

S:POKE I,29S:NEXT I 

156 L=SSEHHIMIiGIT CSMIPOKRE FE si 

164 POKE LstPEEKEL HT 

176 IF NOT E THEN O=STICKE GO POKE FT.E 

138 R=R-i 

i9ù IF E AND R<i THEN REHD OF 

286 IF C515 THEN POKE 53279. 


Ce 
D Es Cr Eu Tr 
D eo 


ut 


Lel fi 


218 IF PEEK(L+12=255 AND M=i THEN GOTD 7 
GE 

226 IF Ü=ig THEN GOSUB 42@:PÛKE L,6PEEKE 
Li-MisLeL-26: GOSUE 26: GOTO 166 

238 IF 0=13 THEN GOSUE 458:POKE L,iPEEK< 
Li-MisL=L+268: GOSUE 366: GOTO 166 

ri IF D=7 THEN POKE L,PEEKI LG MEINTÉM 


PS GOSUE SH: GOTC IE 
F HEC POKE L'PEEKG Li ET: 


tit 


1 QT Ê : 
Es. 


"fut 

7) Qi 
ee 
ART 

ee 
We] 
CE .. 
* 
LE 


"EEK Fr 35 F=F-24 
P£5 THEN POKE A+S,PEEKX +5 1: P=P 


+ po Fo pi 
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ë P=PEEKC A4 39 F=P+20: IF P>295 THEN PÜK 
H+5 ,PEEK& H45 +1: P=P=296 

16 POKE A+4,P2RETURN 

zà REM 

36 IF M>255 THEN M=iiLæ-i 


T 


348 POKE 283,PEEKCLXPOKE 264 ,M:KSUSRC 15 
28 ! 

359 1F_PEEK2052="1 THEN MSINTéM/4 3: G0SUB 
374: GOSUE den 

359 RETURN 

374 FREM 

359 IF 1-4 THEN M=GdiL= +1 


298 POKE 285,PEEKGLO:POKE 264,1: K=USRS 15 
35: 
469 IF PEEKC 2695 3241 THEN MK: GOSUB 328: 
GOSUE 454 

414 RETURN 
450 HS ER POSE 283» J:PÜKE 254,M:K 
ZUSRE 15236 2 
ee Dre te THEN POP :G5ODSUB 438:5 
Ut rh 
44 RETURN 
M 203 »J:POKE 264,MK 
PE ee PEEKS 205 :=f1 THEN POP :GÜSUB 43ÿ4:5 
(RER re 
+F4 RETURN 


458 FOR 1=19 TO 9 STEP -1:35SOUND G,{L-256 
21GI2NEXT I: RETURN 


+39 DATA 1d4,iWor stnlhotollohoidrs 


CHE DATA Frdrl2s4 

if DATA Drbel3esr rtrlhrt rl Es 13»S sil Î 
slSsEstses is D} Hors slsrs 

528 CAT Fri2rids 10 

256 DATA lisrrsltessrslilrlérssrs2s13s5sii 
2513516 Fais lSs£siise 

2H CHTA 159390 1drrllrirldr2rtr3s13 
13565100 lisdz Seal ses SrbsrsSs 1H 
338 DATA Serie 3r13r51rilr2i 

266 DATA ideGsilsebridsser 20e lSstrr salt 
gésllrdeldrdeceseldedellesel4s2eltebeté 
Sr DATA Le olleSoldoe Too ldo2oiteSs i4 
2 sale dsllsbslrl otre 

554 DAT FrdtrlrS rites olletrldr2s er 
lsids si 2ÉsiSsS 


1er és32ldrlots 
Ses F 


à OST 2 = 
lisrcsitscsis 
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Qi 
M 


Je peste 


TT. 
un je pbs [ibn] CR 
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CE 


Ci bte —4 
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ls 
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re 

r L 
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“ Îl 
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Ü 

ag 
CORRE En 

m 


tn 
m 


JC es 
1 


(] 
on 


EC 


g ; é 
UND 1rHri@r12: SETCOLOR 820 RNDG Gi 
EXT HINEXT J 

ETCOLOR 9,6:4:SOUND 9:,025,0:SOUND 1 
[a 

APHICS G:POKE 752,127 Hell à 
YOU Malhaged LOQ escape" 

* Mthe death—aisftying naze, Ou 4e on 
‘ 14 Mareat inteliiaence Lo C Oépliete 


a 


[RE 


JS 4 01 
Lt] 
» 


£ Œ) 


ASE 
o & À 
ERA 


ALLER 


G 


[A 
a! 


1 Ü 
Sen 


+ ‘an incredible task," 

DATA 5802609 8 89 9 89 2 09 2 Gi Dos Dos DO 
55 2099 20990390 s09r200s 909 30» 
DATA Error G ES 

4H ed 00 9 15 219 289 20 20 28» À 

DATA 64,466 42606 89289209 sEs4 

À Sdr63209s 11 389» d0590r40r00s931 


Eur 
Ci 
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ESA DATA 6Srdtrds66:66 2640340265 
344 DATA 4,64,1,17 028420404017 


854 DATA 


569 DATA 


674 DATA 


5338 DATA 
69G DATA 
365 DATA 


316 DATA 


324 DATA 
934 DATA 
345 DATH 
958 DATH 
364 DATA 
a7@ DATA 


380 


DATA 


CSr9s 205646669369: 69: 60% 89 


5999201017 204424289517 


GS 0r00 009646115104 


536417 r1r3299r00r%# 09317 
65266 68 » Et 2 29209 16:16, 16-66 
59»09»17 3920450 r093r08s9»17 


69,69: 6426664 162217652085: 66 


53»5% 160539284070 »092 A 
69066 sr 460931 2803762024 
592031890409 s84+r04+r9121r 
69, 5846092 20r60 16; 1770990004 
59 040 r3r2093s20%+s%r8%#r01> 17 
644692202601 22116:0%4+84 

69 »09 209041099208 s%r1r17 


394 DATA 65:68:9316r65s03216566:05 

DATA 53,00 299 294047090991 17 
DATA 85:66 841726185361 @:66s:04 
DATA 5:99 984 204 00 294 204704509517 


0) 
igim 
iH2ÿ 
1438 
1344 
1454 
1469 
1a7& 
1439 
1896 
Li 
111@ 
iizg 
1136 
1145 
1156 
1155 
1176@ 
Lis5ë 
1196 
248 
1216 
226 
1234 
24 
1254 


1268 


DATA 


69,660 60s1rrlrlr1r 00:69 


DATA 35,9 :4:,08 299 234 294 294 59 » 17 


DATA 


Ed srdsZi s6lsirs if 17 16:66:64 


DATA 1,21,69 69 264 20 2 4»468217 


DATA 


696416116161 7r20r66:69 


DATH 31,16:4:09209:99:6092082608%17 


DATA 


GGr0r1 26052132 600s015 16:66:64 


DATA 171720942659 2600 026400608317 


DATA 


6Gr69:601110r9r261s11 206: 69 


DATA 171654693208 204234682691 


DATA 
DATA 
DATA 
DATA 
DATH 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


GGr60 122169606701 16:66:65 
16:21:69 204 s4r4 4208309217 
GGr69s215 1602092653: 09:66:61 
21,904 0920920900°00r2099s 17 
GSrlrilGrir ste GG rdilr 
Lir91 284002020930 slr17 
Edrlsir 116662092043: 69365s1r 
219099593993 294+20009s21r17 
ESsrodslrsr20r604s: 6636641617 
2153532640 0200200 2092098217 
65:66:69 4:852663:05s69s17:61 
160299209234 00200 20417217 
64,69:6500 026624315171 
213400009090 »09s17»17 


Ed» 64 2 6 2 60 2 64 69266 E sl si 


A 16s»2112892093209s00s060s04sirs17 
À Eéte05 etes o6ds6Gsisir 261 


1366 DHTH 176042020509 209s:093s2911i6 
1516 DATA debat 200602662609 261s161 
1326 DATA 179400999204 209s0%4sb%ts29ls17 
1326 DATA 64321566 rdrde0Gslrirsres 
id DATA 170060 0s64 005090320917 
1254 DATA 66:85:62 66 4264200269 s16 208 


1694 DATA 
1°5g DATA 


A 172120068044: 093s17 
À 66:09s64s266:64s64s266slrirs21 


Dlodtrtr693°99°09°00108209217 


A 66:59:64: 06:609692092681:17:16 
A 1:64:69209:0 0200090081 

F Cr 0000020000 sr%rdslrif rit 

A 219920920911 2042002004 »09 
À Edo 66 0684065 rlr 221 


Drdolr093 sl rtr08 09234 r99 


À 69:21:64: 60:6920te6%r131fs1 


85,89:80 1217208288 64 201 
68-16-06826469209281 17:81 
Do0,21531r31 240809235235 
64-808560:68:660r17:16r17 


A 21:99»16»17r17 520100109249 
À 662092044606: 606269s1rr2€1%17 


Hr9sr1rr1r rit rh4r00 1001209709 


A 66:6929°0466s260r1s1 1217 


Gr09»17r1/r1 509090025809 
66609203 0r66s:692613117281217 
39»09s1ir 111054000000 03 


A 66» Ed 16-69-0060 1 ’ 16 17 16 
À Dorbrifoirr1rr09:00: 0404709 

À 6B209:01 2041003200 00se2is1rsr1r 
F 59r99901o1 1 500090954591 
À Gdebs1r5068:60r1r16s17 217 

É Hobplririr otre 

A 61:64:09 20 sr 4260950151 /201r21 
A 2153999109 %17 52059 »99 2991 


65 84:01/16 840612161720 


A 16,017 rhrlr16504r0slr31 


G9rdr1r16-64,/ 062891 61,65 
31,09» 17 24709» 1 29129901 
GGr4s609217r269/06s1r1r61%1 
16,117 r94r0hr17 2171652199 


89 


90 


DATA 
DATA 
DATA 
DATA 
DATA 
DATR 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4 DATA 


DATA 
DATA 
DATA 
DATA 
EATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


66, 66:66 167%2:61285%1%17 
191,17 »34r093r01r1r7 179001 
66, 606,66261 20484200 r64r21217 
219151729409» 21717 r385r81 
66,686 64:65 2 6 2 64 2 20 2 69 » 60 2 17 
Drlrir rm oO olr slt sls@ri 
64,64,68,69,21 69 @ 264 » 1 81 
39581917 231r70991 1758552135 
CSG 66:06: 165561200365 60 
Bérlrir rss s10s0 rs 

Eds 6 142663612041 2826269 
59991 204220 r1rr21r99r93209 
GS 21 268456636053 0285321 164,04 
roi otri6sir 20207020 
6416760266 261764654269 

4 r95 2012090151 992099204703 
69:61 1096005600: 002609265260 sr 64 
HDi 2162091100 r928%539 
Eds 1 Bistrot bts66s Este 

3999 r17r17 209921090401 
CS 89 9213269 26%: 69:66: 09:60:68 
Grboirsr1rr99 0200 r09 393099 
GtrGe21s130 064: 66:64:64 369 
349920111656 94242 0%hrlri 

GS 209 GBolr 2158426045 4368 
roi r21r33r299 294599581517 
Ed, 260r1:61:16702609893:64,6E 
593»99r1r 0260» r16r0s»3151r 
6e s69 5111 564520430343: 68 
Gér0 rl 2395 201s01r1 2094891217 
Gr Go6sr21r16s55s209:0068:66 
952999170161 s16s%#s1rsir 
66:85:69 :61:21:606 036366: GE 
BorOrlrs2lrelrlir sir r09olfsir 
666061: 1:66:69s:64:66:66 

35 »09r91rifrlrifs16r090i sir 
Gbsrls09s26030:66s:0 5466: 65 
Ghr04rirrirs8lrirr2loSlslr rit 
696101: 65:093605:00:66:60 
34991 sir s01rifs16r17rlrir 
Gds1521:06 0066501663 66:60 
Hs64r1rr16r1 91 ri r1 23317 
456516521504: 000 66:66:69 
69:03»81r1rr91rifs17s165@517 


2154 DATA 84:64:17 260921289206: 06:66:64 


2168 


da 
2254 


2270 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


ä DATA 


DATA 


5960417 s16r1 r1fr1fr21r99r81 
C6 26126895 160046626028 
34,99 r1rr21rlrrlérlrri6ri 
B5s6611s1r1 200204266766 
Drdrirr15rlrlifrSs0islrr9 
Eros 2160074569 2092ES 
593»09s91r21r91rlrsi6r1 1691 
GS 8 4 0 Gt 2 1 7 221 2 69 9 66 9 64 6 
Drdolrdrirsrirolirrirs21r8i 
64,069 809 167024569269: 809 

99 r°99» 99» 09 pi rl r1rrirr16rl 
8509266221 61 2 69» 64 2 6 2 6 2 E 

D r0rdrlr2lrirrlérislé rss 

Cds 64 669431603533 852093269 
39099299» 91rbolfr1ir sr 161 
66 66 66 2 64 2 95 2 89 » 04 9 6 » 6 » 
Do0»0r1rr33s91slrrlr2lr81 

GO sd 2436632 04:0265%89365:89 

39 °09 299» 16»0olr6sir soi 
65095 60200260» 64 2 64 26% 9 6 2 À 
DoDrlr21r39r099 0909» 791 
64,066: 665 665006209209 69 
35» 99» 01 20 20 20 0 0 20» 17 

69, 202605 266 2 69 2 69 » 66 2 06 » 6 20 
DrO»17 239239209099 09 °09 17 
69,16,-66686406:64:66r695s65 
395 »99»17r1rDs50s0 5011 
69,17 0066084060: 61:08: 64:08 
Gésrlrirr3lr21299»09»8981717 
69, 16:66 » 64 » 4 2 64 2 6 9 4269 2 64 
53,5lr1r1r167020»0rlr17 
692066682606 » 89 3 89: 643 06 0 
699129921117 509»993r393r39»17 
69,16,66,66-6670716-:04,6685 
GSrlrnislri riB6rir@risir 
69,17-66662692609s16:0966:64 
Srirr1irr0lri olrGlr2lr81r1 
69,16,-60 00260620 16266 4:69 
34,16»16»1»17r81r1r1691917 
C9,20:66:66:06 69 2 04 2 66 2 02 GC 
D r992099 2995 1brirr2lrifs33rlr 
69716:06:6002606: 66: 14264266 
95299» 16s521r219»1r215»16s1r1r 


91 


92 


2594 
2546 
2616 
2629 
2554 
25443 
2654 
2668 
26r4 
2538 
2694 
2ri6 
2r28 
rs 
Fr + 
2r58 
F6 
278 
2r38 
2794 
ei) 
26168 
2928 
2834 
2348 
2656 
2368 
2678 
2334 
2894 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


4 DATA 
4 DATA 


DATA 
DATA 
DATA 
DATA 


69; 1266: 66s2606:60%:69s: 04:69:68 
Gétrlrifoiririoirs3r8lrir 
69,16200:66:66r205:65:64:66:4 
3920920 r21r91299r1ifs@riroir 
69,21:60466:6070r604:66,66:66 
rbr2lriGrlirsrbrirclrlrrir 
660 r4569264204:66: 69269 
95320995 9Moir oil r01lr99r1if sir rit 
ES 2 1 269804226464 
rlrirdlrirrlibrlirirolrir 

69, 16269 2 64 2 85369269 9 893892 È9 
39 r0lr2lrlrir 2212911 39917 
Driroi6r21r1r oo 1r sols 1r 
66,61 69269» 04 9 60 2 09 9 09 Eos El 
391791720191 909517395811 
666% 66 9 6 2 À 5 64 9 6 9 E 2 Gr i 
loirrirrloirr@oibrbririt 
66:66:06 185265 369389309309 269 
1rr1rr1rr2lrir 22993» 993r99 17 
Gés66sr66s i LA i 2066 ss 
1rriroirolrlfr16r20r%r2s1r 
66:66:69 6111 722089326093 66:69 
171 r1rr01o1r ri 20656091 
C4 66 364 1 7 9 17 9 20 2 80 2 80 9 469 
1Prlr@olrirr2lr0983r01s17 
6966260931 217220051106: 69 
1Fr21»9393r21r1 5093» 16ririr 
Gésrdrisirrirs21s5609:60:606:69 
16,16:%r16r1 8920991 r99r1r 
Sete sl 1 20505203 64:65 
21»17r99s°91r91r1r@ri6rlrir 
Gdo0s1:1791 203269203092 09 
lri6»i6rlrlrlrrels21r011r 
CS res si roll sde 
Slrclo1 rs sr21rlrrlr@olrir 
Ets 26rGlrirslrrirr1 ses Es 
16»16»1 72816917 291r39r09r1r 
ES 166516716916 166 90 1 
lrirr3lrclr91r91rtrdrlisir 
tri Os 1 205893603093 Er 50 
59 »16r»lri6risrirclo2ir3lrir 


Do,21r999»21321r21r16r1Br1r16 


3434 DATH 
3844 DATA 
3456 DATA 
3869 DATA 
347à DATA 
3456 DATA 


Cri r0lslr 2er Os os ES 
59» 540711161651 s3lrd9s1r 
BSorlr soleil abs 5 6 
Dr09r933s01lritsr0isdlolisrird 
Edo ollrir ss 00 ho00 C0: ES 
34 :,59rDrlrifrirrlrelribri 


3894 DATA 6G:01:1:16s7@Gr0r4r66:603 8 

3149 DATA 4,09%21 9917 29o1/ 701671 
3114 DATA 64,17581%21 650906700002 05 
3128 DATA 65,08,90 0917 3320933 29% 71 
3134 DATA 65,16» 1 9 9 2 6 9 © 9 6 204 2 64 2 À 

3149 DATA 4,4,1:95% 16002041 

3154 DATA 85,892 89 269 2 89 2 60900609 00e 0 
3169 DATA 5599299 299 299 2992092099 »99 299 


Désintégration dans l’espace 


Notre prochain jeu a été écrit par Paul Dunning: 


Il se joue à deux, chacun contrôlant son vaisseau à l'aide des Joysticks 
(Part 1 pour le joueur n° 1, part 2 pour le joueur n°2). 


La poussée s'obtient en tirant à soi le Joystick, ce qui vous fera également 
avancer d'une unité dans la direction du mouvement; inclinez le Joystick à 
droite ou à gauche pour tourner. 


Quand vous commencerez, l'ordinateur vous demandera le temps de jeu: 
39 est une moyenne. L'objectif du jeu est d'atteindre votre adversaire le 
plus de fois possible dans la limite de temps fixée. 


Notez que vous disposez d'un nombre de coups limites, et que votre 
réserve d'énergie est affichée au bas de l'écran: 


Maintenant, vous êtes prêts Bonne chasse, et que la Force soit avec 
vous | 


93 


94 


REN #3 


È RC ee ee te 

Z KREM à Astro biast # 

E RENE —————————— # 

4 REM # Hritteh bu Paui Oufhitiitia $ 

5 REP RÉRÉRARE RER ER ET ee 

E FER 

1 GI Fi#i 28 : FEI 2 Sr Sn Fil 


a F2 F14C 26 CHR 162 FI$CZ FIEF 
26 RHFISPEERKS 1963-16: PÛKE F356,RAM: IF PEEK 
(26337266 THEN GOSUE SSM:POKE 245,264 
38 RESTOURE 366:FÜÛR G=1 TD se RERO RE» PER 
CG=KXE PE GIP YEHNEXT GiCi=isC=i 

43 GRHPHICS 2 


54 * #65," astro blast " 
EG + #6:;" Pretetesssesss 
Fa 


15 * ENTER TIME TO PLAY "5: INPUT TI 
EG REF 

38 GRHPHICS 1F:POKE 736,RAM:F1=14:F2=14: 
A=gsv=idiG=iSs NES FFIi=isFFE=i 


Li S=STICKEGOIIIF S=7 THEN C=C+1:IF C5 
THEH C= 1 


119 IF 5=ii THEN C=C-1:1F C£1 THEN C=3 
126 IF S=i4 THEN COLOR SESPLOT AVE K=A +4 
LC r=r+né Co: SOUND 5,269,3,3 

136 IF S<i4 THEN SOUND 6,6,06,6 


144 IF £<2 OUR X713 THEN K=x4- Xi Ds Kai K=2 
1RAG+CX=IC IEEE 


156 IF T£2 OR 9515 THEN v=r+-yé Dot = y=2 
RAEHC PSI EIRE 


168 COLOR CiPLOT &or 
Leg IF STRISG3=S AND FF1=1 THEN GOSUB 3 


156 IF STRIG 15=6 AND FFZ=1 THEN GOSUB 5 


Fire Lire 
g co Gi] 


te S=STICECLOSIF S=r THEN Ci=Ci+i:IF Ci 
THEH Ci=i 


250 IF 5=ii THEN Ci=Ci-i:IiF Cl£2 THEN Ci 


214 IF 5=id THEN COLOR 32: PLOT G, Hi 0=G+x 
LCI 25 = ré Ci ïe SOUND 1,186,58,5 

226 IF Sid THEN SOUND 1,9,424 
236 IF G<Z OK G515 THEN Gebt-xi CI Gi Ge 
Zk184C = 18 042 

ci IF HEZ OR H518 THEN H=+- ré Cl = 
É Ê ke +E Ha His 


2684 IF F1<1_THEN POSITION HZ2isr #6; "out 
Of FUEl" IF FIi=H: GÛTD 236 


£ra POS ITION G,2i:T HE; "PUELI "Fifi i.Fii 
236 IF F2<1 THEN POSITION G,22:% #;"out 
Of fuel"sFFE=H: GOT ZE 

298 POSITION 22: #6: "FUELZ";F2$#6 1,725 
288 POSITION 5,892% #6:51: POSITION 15,857 
#6: SZ: POSITION 5, gi #6: "TIME": POSITION 
315% HS: INTITI 535" 

314 IF PEEKRLSSETS IE THEN GOTC GE 

329 TI=TI-W.1:IF TI£H.i THEN 554 

236 GOÜTO 16 


RÂI=AHEAC LC 13 T1=T+ TE C2 

IF C=i OR C=S THEN FC=i& 

IF C=3 OR C=7 THEN FC=12 

IF C=2 OF C=6 THEN Fi=ii 

IF C=4 OR C=8 THEN FC=13 
Fe FOR F=i T0 SLOCATE Xi,vis%es COLOR F 
PLOT #11 


[e 0] Les] 
5 ") Qt ON Le 
D on © 


Den] 
[LA 


Ci cet 


300 IF ##€332 AND 4x<18 THEN GOSUB 79:35 
=Si+i:HH=1:GOTO 458 
1 


JON CCN Ds299-F #90 23 » 15: SOUND 1,:1589—F% 
IF #1i:i8 OF Ki<i THEN 45ÿ 

IF Tiÿié OR Tri$i THEN 456 
sizki+étCus Ti vi+ ré CSNEXT F 
Rd=Et+eE Ce i= ré C2 

FÜR E=i TO S:COLOR 32:PLOT &isvi 

IF K1715 OF #i<i THEN SE 

IF 1:13 OR vi£i THEN 56ÿ 

Hi=x1+kC CI YVI+ M CHENERT E 

= SOUNDC 9,59 209 45 SOUND Loos: Fi=Fi-i: 
IF HH=i THEN HH=G: GOTO 36 

214 RETURN 

529 Ae=bitac C1 1: redire C1 2 

S26 IF Ci=i Of C1=S THEHN FC=iE 

548 IF Ciz3 OR Ci=r THEN FC=1£ 

So IF Ci=£ OK Ci1=6 THEN FC=ii 

569 IF Ci=d4 OR Ci=3 THEN FC=13 

orA FÜF La TO SILOCATE &£, rase COLOR F 
CiPLOT ke, re 


SE SOUND 9,255 *54,3,15: 5SOUND 1,158F% 
25515 


fr 
Lil “_ 


ete 
ÉÉECELE 


95 


96 


SACr32 AND <#<189 THEN GOSUB 759:5 
SHH=I1: GÜTO ESE 
REF15 OR X2{1 THEN 5:34 
IF V216 OR 21 THEN 654 
CB AE=AZHAL C1): V2=Y2+T CLIENEXT F 
24 >? AZ=GHAC C1 45 VASE VE C1 
à FÜR E=i TO S:COLOR 3Z:PLÜT X2,72 
D6 IF K2HIE OK ET THEN EEE 
IF v2:13 OR Y2<1 THEN 654 
RAEZAZHKC C1 1 TZ=YE+ WE CI TENEXT E 
SGUND 5 9 » 9 » 95: SUHJND loDrdo0F22-1: 
HH=1i THEN HH=G:GOTO 36 
RETURN 
FÜR 6=15 TO 9 STEP -3 
FOR H=ÿ TO Z 
SOUND H,RNDE 1 3458+100,3,6 
NEXT H 
i _ HE 1 GFÛR G=6 TO 2: SOUND 6,6,9,02NE 
AT GS RETURH 
So FÜR 5=1i5 TD à STEP -35 
FER FÜR H=6 TO 2 
Fra SOUND H,RNDS 1 :#58+108,3,5 


ms (en || 
5 © & 
T4 T1 


ca Tr T4 gro 0 on Pt 
1 


mg A) eg On et 
ce dé né J 
Lo D ES © Gun 


PO EE EX] 


J 
na 
a 


à NEXT H 

F96 HEXT G:FÜR G=9 TO 2:SO0UND 5,6,9,0:NE 
AT GERETURNH 

554 POSITION 3»19:7 #5:"GAMIE ÜDVER" 

814 Si=@:SZ=G:FOR G=1i TO 5 


} 


Se SOUND 5 » LEE » 18» 155 SOUND 112840, 14 
15: SOUHD Z,96+0,1i8,15 


534 L=C-]:IF C=-34 THEN 35% 

546 GÜTO &2E 

339 C=M:NEXT G 

268 FÜR G=ÿ TO Z:SOUND G,6,8,9:NEXT 0 
F6 IF PEEKIS32F9E THEH 4& 


Qi 
St 


PÜKE 532793,9:60T0 379 

FOR G=ûG TO 1824: 4=PEERKL 57 244+6 3: POKE 
PANK2S6+0 SA: NEXT QiC=S 

SQ6 READC A:IF A=-i1 THEN RETURN 

315 PÜKE RAMKZSGHC,A:C=C+1: GOTO 34 

92 DATA Li » EL 9 36 36566 s 46 2165: 1553015 


D» 13432920 9999» 19291 6 039333991615 
21H rss L ds 0 À Ads Br lEsS 

334 DATA 1395:173: 9060636536» 2424316516 
Gr #4 » Gr Rs 16e 182 r 82 13:08: 106, 186-80, 


13:30192 5 176 26767 44 1405165 16 


GG DATH 11221269 246 9 os Los Er O0 s se 
sd 22 8 Ed 9 2422 otre rh r 5 216932 20% 7 
12630002 Sos LI 0 s 06 6 


359 DATA 12856432» 16509425 1r—1 
Le DAT Gr—iloisr-lslodolirioGois—-lsir—-lrt 


Saut de grenouille 


Dans ‘Saut de grenouille”, un autre jeu de Paul Dunning, vous contrôlez la 
bête avec votre Joystick : L'objectif est de ramener sauves à la maison cinq 
grenouilles, qui devront auparavant franchir une route et une rivière : Vous 
devez sauter de bateau en bateau, à condition qu'il ne soit pas jaune! 


Il peut vous arriver d'apercevoir votre petite copine (votre petit copain) sur 
l'un des bateaux: Vous pouvez gagner 200 points en l'attrapant et en la 
ramenant chez vous (la chevalerie mérite récompense !). 


Si vous réussissez à ramener toutes vos bestioles ” at home”, vous touche- 
rez un bonus en fonction du temps qui vous aura été nécessaire. et vous 
pourrez repartir pour un nouveau tour, plus difficile ! 


2. 


RE Le EE 
RE # FRÜGS — JUTF 
REÏT &  ——————---- %& 
RER # HRITIEN Er FALL OUNHINHE # 
REF CREER ER RE EE A AE AE AU AC AC 
DIM _F# 2@i,Li1$i 221,128 263,018 26 3,02 
LB TL ED 1 TAB 2 PE 2 2» 7 PE 20 : FH d 
AAC EEK LM 16 RS 
GRAPHILS ir 
IF PEER RAM+35=û THEN GOSUB 1149 
à GRAPFHICS 17: SETCOLOR Gels os SETCOLOR 
1225 : SETCOLOR 2s13»3:SETCOLOR 3:2:6%5ET 
OL À dsbsi 
M 3=19:E=1: 71-505 Ji Mes: =D: y=i9: = 
F ok = Ÿ TO s FAT "206 

PES L'iCHR EE 132 13 Pi 29 =CHRSS 132 3: PH 
‘= $: MS CHRSC IE 15 F6 d ICHRSC LEFT AFF 


29 Lise" Vi NII L 


ee 


_ 
RACE: 


Cm OÙ “4 ae tr en Le day Pt ee 


2 pu 00 1 E ‘ Dr ni Er Le _S cu 


Pre Jr 


97 


98 


ii fi pin 


READ Li Ci 6,6 2=CHR#<U 


; GTA 251163516332 r30s 163516323232 
Lee) Être sde sit 16SsSE se SE 16316230 
Len CEE=" # # # # # * 
ira FOR Gi TO ZBsREAD Lis Ti Gi, Gi CHR LI 
MIHEST G 
184 OATA 22,166:166166932r30r30s 1341134 
21e Es Ses Es 184518 de Tr SE SES SE 
194 FOR G=i TO ZA: REND Vi T2 0,0 CHR U 
HHEËT 
299 OATH sos 32 913491341349 32 9 3253 
5,166,166, 186, 2230 22rl0drlddel dde de 
Sid POSITION G,195% #6:P# 
E26 POSITION G,2HIT HE: F# 
234 POSITION 5, 
248 FOR | G=i TO AB:REND VIT HS:CHR#CU SSH 
EX} Li 
258 DATA 1325132932 s132s132s32r132s13293 
Dr ll rs BE Er 1 BE Br 18 9 18 9 DE 132 1 
i£ 
A DATA 133513332133» 153r329133»13553 
132351335822 133r 13839 Ts 1235133 r Es 13S ri 


De Ci 
—1 D 
( 

TI 


HA) Lots Ti 


Fr ee pi pus qua 


[su 
C 


R<:32 AND CR>19 AND v:19 THEN 50 


1 
Fr 
Ces | 
La] [a 
Ca al 


COLOR CiPLOT X,v 
Hésesite 152: T$=LES$< 20,20 12 7$6 LENC 7$ 
=x#ilz er 

SELLE 1,140 7#=L1SE 29,20 217$ LERK 7 
i=k#iLiF=T# 

368 HEZCLEC 1,19 13 7$=C 1H 29,26 127$ LENK T$ 
Miss Ci=Tf 

374 TIE=TISEZ, 24 TIR 2,24 ati 1,1: 
O6 T2S=TEHIZ, Lis TES 2G, 242 TEHC ii, 1: 
399 CES=C2H 2,205: Le#e 29,28 CZK 1, 1 : 
né S=STICES GE COLOR € 


1 +in +p ere 
Ü + in me oo To 


Let et tel verte) Cet LC def y D 


î 


din POSITION 5,235% #6:"score-";5C 
424 POSITION SLT hHEs'tiMe —"5T5" 
439 POSITION 9,23:7 #6:F#0 1,055" " 


448 Ti=Ti-G. 852 T=IHTE Ti à 
459 IF 5=7 THEN COLOR OC:PLOT X,vix=x+1: 
LOCATE X-v,0C:C=6: GOSUE 226 

46 Ir 5=ii THEN COLOR OC HA al ER RE à 
:LOCATE X 9 n,0C: C=d: GUSUE 

479 IF 3=14 THEN COLOR DCEPLOT svt V=Y-J 
sLOCATE Ko, OC: C=T: GOSUE &E6 

450 IF 5=13 THEN COLOR DC:PLOT Kev2 v=p+y 
:LOCATE K-w0C:C=1@: GUSUE 820 

439 IF OE<232 AND 0C?19 AND 218 THEN 60 
LUE ESb 

59 IF OC=32 AND Y<16 AND +23 THEN 50SUB 


Slt IF véii THEN J=ë 

oc& IF 516 THEN J=1 

338 IF OC=134 THEN x=x-i 

o4@ IF OC=7 THEN GOSUE 1324 

394 ÎF OC=33 THEN X=x+i 

66 _IF OC=IGE THEN K=x-12TT=TT+I51IF TT=S 
THEN FT: #=#%+1: G0SÛUB 356 


Se IF v=@ AND OC=S5Z THEN GOSUE GOT 
394 IF T=6 THEN GOSUB 359 

396 IF *319 THEN X=x-1:GOSUE 856 

698 IF *<8 THEN X=x+1:G0SUB 358 

616 COLOR CEPLOT 3% 

5629 IF RNDC1:29.35 AND HF=ÿ THEN HH=ÿ 


GSG IF H=6 AND HH=G THEN GOSUE 133@:IF H 
=ÿ 1HEN 5F5 

Ed IF HH=i THEN EE 

538 Drns i IF X3€Z2 THEN H=ÿ:HF=1:HH=i 
668 COLOR FEPFLOT XS,8 

534 LOCRTE. AseTsAC:IF AC<F OR HC>1H THEN 


rH4 IF H=1 THEH COLOR F:PLOT x3,3 

F1@ COLOR C:PLOT % 475 RETURH 

F24 FÜR H=i TO 16: SOUND 6,H,19,15:NEXT HW 
Fab xizkirisviax=ifir=is 

F4 FÜR H=i TO 18: SOUND 6,H,192152NEXT H 
A H=iG TÜ L STEF -1:SOUND 6,H,16&,1 
Je NEXT H 


99 


100 


4 SOUND 6,5,9,93 COLOR CiPLOT x1l,vi 
FéG F=F+1:SC=SC+2@6: IF SC>2@@@ AND E=i T 
HEN E=G: =f+i 
FEB HF=6 
r34 IF BB<:4 THEN SC=SC+BB:BB=9 
G6@ IF F=6 THEN F=6:GOSUE G6@:GOTO 16 
819 RETURN 
328 FOR H=55 TO 59 STEP -1 
834 SOUND G,H,1W/1S:NEXT H 
344 SOUND 9,5, 09: RETURN 
E54 FOR H=ii TO 15 
369 COLOR Hs PLÜT %,'7: SOUND D,HK8, 109, 15 
Sr FÜR F=û TO SA:NEXT PESNEXT H 


384 COLOR 32:PLOT _. A=A-1 
634 COLOR OC:FLOT %+ 
3569 SOUND 9,9,9,04: ae 


914 IF MA THEN 334 

329 #=109: 7=193: HF=8: RETURN 

334 POSITION 5,1@:7 #6;"aame over" 
344 IF PEEK(33279:=65 THEN RUN 

354 GOTÜ 946 


358 GRAPHICS ir 
574 IF T<19 THEN POSITION 5,16:% #6;"ND 
ECNUS":GOTO 1635 
354 G=IATX ENDE 1 24404 +250 
398 K=INTET-164+LL 22 BO=KKG: SC=SCHEÛ 
is POSITION 7,53 % #5; "BONUS" 
1018 POSITION £LSFir RGsK ss" € ":G;s" = ";E 
1425 FOR H=1 TO F 
1429 FOR P=255 TO 9 STEP -13:POKE 708,P: 
Erwin GP 2 14,163 SGUNED li: S'en 12, 1ü: NEAT 
14 NEAT Hs: SOUND 1,5,9, 
18564 GRAFHICS 17: SETCOLOR &,2,3: SETCOLOR 
L,12%232 SET COLOR Lsri3,3: SETCOL LÜR 3s2:533 
ETCULOR deSsisli=ii+i 
868 IF LL:1 THEN 1115 
iGrh Lig=" itili : 
LOS LEEZ="  H# HN KO H# #4#" 
1494 IF SC2466 AND E=i THEN E=&: TE i 
Li9g PÈRE Fa6.,RAM-E256: 71-58: RETURN 
1118 LZ#=" 1 ji li VI MELLE roc) 


2CHRSS 136 31 L2$ 8,8 2=CHRS 187 à 
1126 GOTO 143ù 
Li34 GÜTD £Fÿ 


F #55" PLENSE HAIT -" 

F #65" REDEFING THE" 

5 #65" CHARACTER SET* 

C=8: FOR GG TO 2H4£ 
A=PEERKS 573445 

POKE RAFHG,A 

NEXT Gi 

POKE F564RAMSZSE 

READ C:IF C=-i THEN RETURN 

EH=RAMHE CEE 

FOR G=ÿ TO F:READ UiPOKE BAHI,UINES 


be pr 
Er 


2 


ol Ti CN Re 
Ses se 


[LA] 


Fu Fan un Fo fortes pes het ps het pue 
Del Far be se 
Lut] lu] DEN EX] 


CAE 
E 


SH 
1 


GÜTU 122 
3 OATH 1299313 CH PR LE ta PP 2392135 2299 s 

Js Sos 1190 3do2Sdr25S 2954 5 5119 

ler. DATA DES Dr Sr Sa ID 2 ID 2299 239 

LOT a Ts LOTS LOTS LOIS LOS La Le Los BrbriE 
ñ a s12dsi2drizdri2dsrs2id 

à DATA 146: 7 286 GE» SÙ 2 G6 » EU» Gi 
ci Fisi28s ds 


Fi fi 


Pate ps eo] ponte ee poute Rede ponte bte pus bed pus 


PSE 
“FU 

Eau 

pote du 


Marc mi 
REX 
to 
. 
D EX 
[EX 
(T 
” 
hote 


n SÈ 
SÉRE ES 
S 
& 

Fi 
L] 
Mo 
[ac 
L] 
+ 
ri 
L] 


Li 


51 OATA 28,828, 1281258, 933, 1000 
se He cer vii 


: HH= 
334 LOCATE RSsdrññs IF AKCESS AND #K< 15 
THEH H=i 

344 #3=13 

336 RETURN 


SR Dre Mere Gr n ps CC bot | 
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Comment protéger 
vos programmes 


La protection logicielle 


Oter tout effet au ‘Break. 
On peut y arriver en utilisant la séquence suivante: 


POKE 36,64: POKE 53774,64 


Cela peut être placé en tête du programme et refait lors des changements 
de mode graphique. 


Utilisation du vecteur de redémarrage à froid: 


En faisant POKE 580,1, l'ordinateur effectuera un redémarrage lors de 
l'appui sur SYSTEM RESET, causant, naturellement, la perte du 
programme. 
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La table des noms de variable : 


C'est là que sont stockés les noms de toutes les variables. Détruire cette 
table empêche tout listage. 
Essayez: Chargez un programme et frappez ceci en mode direct: 


FOR X=PEEK(139)+256+PEEK(131) TO PEEK(132+256*PEEK(133):POKE X,S:NEXT X 


Maintenant essayez donc de lister le programme ! 
Quand vous sauverez ce programme, ce sera sans une forme inutilisable 
ultérieurement. 


Achevé d’imprimer par 
Cid éditions Nantes 
Dépôt légal: mai 1984 
N° d’Éditeur : 4024 


Dans ce livre, Paul Bunn, dans un style particulièrement clair, vous 
donne tous les éléments nécessaires pour améliorer vos méthodes de 
programmation sur les ordinateurs ATARI. 


De l'optimisation des graphiques à l'utilisation des manettes de jeu, 
vous y trouverez les tours de main essentiels, les adresses mémoire impor- 
tantes, les ruses pour mener votre ATARI au doigt et à l'œil. 


Vous pourrez également puiser, pour votre distraction, dans une 
collection de programmes pour tous les goûts et toutes les occasions, de 
BEETLE-JUICE : vous, petit scarabé, essayez de traverser une autoroute 
sans vous faire écraser, jusqu’à DODGE'EM, dans lequel vous utilisez 
les manettes de jeu pour conduire votre voiture... 


Si vous en êtes au stade du «Que faire maintenant» avec votre 
ATARI 400 ou 800, ce livre est pour vous ! 
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